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TELECCMMUTER™ _ 


INTEGRATED WORD PROCESSING p 
AND COMMUNICATIONS SOFTWARE | 


For the Tandy 1000, 1200 and 2000, and ІВМ-РС/ХТ/АТ and compatible —— 
computers. Uses all the Model 100/Тапау 200 TEXT апа TELCOM 
commands. ! 


WHY BUY JUST FILE TRANSFER? | 
TURN YOUR DESKTOP COMPUTER INTO | 
А ‘SUPER MODEL 100/TANDY 200’! — 


For $200 you can put all this on your desktop computer: | 
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e Full function Word Processor based оп and compatible with 
Model 100/Tandy 200 TEXT Editor. | 


e Super Power Communications based оп and compatible with \ 


Model 100/Tandy 200 ТЕ СОМ. | 
| 
e FastFile Transfer between Model 100/Тапау 200 and desktop | | 
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at 9600 baud. Fully prompted at every step so you'll never get 
lost. And we supply the cable at no extra cost! 


е Host Mode for remote control of desktop computer from Model | 
100, Tandy 200, dumb terminal, or any computer with Telcom mcg 
capability. | 


| 


You don'thave to put extra code on your Model 100 or Tandy 200 to transfer 
files — no cassettes, no ROM cartridges. Telecommuter willexchangefiles ! 
with any computer that has an RS-232 port and communications software, | 
even another desktop computer. 


| Optional advanced features include XMODEM protocol file transfer, full ! 
VT100 terminal emulation, Telcom scripts and macros for automatic dialup i 
and file transfer, DOS access from editor, and multiple access level Host |----- | 
Mode. TC-Corporate allows individual user assignments, such as ра55- 

word, access level and time limit; keeps activity log. | 
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Telecommuter is a new and significantly easier way to use yourportableand 77777 
| desktop computers together. Call or write today for more information on our 
entire line of fine software products. 


We accept MasterCard and VISA for mail or telephone orders, and we ship 
free in the USA. Upgrade any time for price difference. | 


TC-standard or TC-XMODEM $200, TC-DeLuxe $300, TC-plus $400, and -- 
TC-Corporate $1000. 


r 


| 


Look for Telecommuter at your local Radio Shack Computer Store! 
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Tandy 200 24K 5739 
Model 100 24K $510 


Smith Corona L-4000 
$259 


Tandy 4200 HD $1599 
Meg. 256K 


Color Computer Il 
у//64К Ext. Basic $179 
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1000 $740 
000 HD $4539 


DMP105 $160 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 1 Drive 128K 
Tandy 1000 HD 10 Meg. 256K 
Tandy 1200 10 Meg. 256K 
Tandy 2000 2 Drive 256K 
Tandy 2000 10 Meg. 256K 
Model IVD 64K with Deskmate 
PRINTERS 

Radio Shack DMP-130 269.00 
Radio Shack DMP-430 660.00 
Radio Shack DWP-220 Daisy Wheel469.00 
Radio Shack ТЕР-100 Portable 229.00 
Silver Reed EXP-550 Daisy Wheel 425.00 
Star 55-10 245.00 
Star SG-15 410.00 
Star SD-10 365.00 
Panasonic Р-1091 259.00 
Toshiba 351 1175.00 
CITOH Prowriter 8510AP -- NLO 345.00 
Okidata 192 375.00 
Epson LX-80 245.00 
Epson FX-185 369.00 
Epson HS-80 Portable Ink Jet 339.00 


710.00 
1539.00 
1599.00 
1295.00 
2025.00 

889.00 


Tandy 1000/1200 ACCESSORIES 
Tandy 1000 Disk Drive Kit 159.00 
Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 249.00 
256K Ram Board (inc. 128K & DMA)199.00 
512K Ram Board (includes 128K) 169.00 
256K Memory Plus Expansion Brd.249.00 
PBJ Multi-Function Board (128K) 269.00 
PBJ Multi-Function Board (256K) 299.00 
PBJ Multi-Function Board (512K) 349.00 
128K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for РВ.) Board)69.00 
300 Baud Modem Board 129.00 
1200 Baud Modem Board 249.00 
RS-232 Serial Board 89.00 
Digi-Mouse/Clock Board 89.00 
Tandy 1000/1200 MONITORS 

Tandy VM-2 Green Monitor 129.00 
Tandy CM-2 RGB Color Monitor 379.00 
Tandy VM-3 TTL Green Monitor 179.00 
Tatung CM-1360 Color/Gr./Amber459.00 
Tandy 1200 Text Monitor Adapt. 179.00 
Tandy 1200 Color/Graphics Adapt240.00 


CALL TOLL FREE 
1-800-343-8124 


е LOWEST POSSIBLE PRICES 
BEST POSSIBLE WARRANTY 
KNOWLEDGEABLE SALES STAFF 
TIMELY DELIVERY 
SHOPPING CONVENIENCE 


= Ш 55 


P.O. Box 4094 
480 King Street 
Littleton, MA 01460 


MODEMS 

Radio Shack DCM-3 Modem 52.00 
Radio Shack DCM-5 Modem 99.00 
Radio Shack DC Modem 2212 315.00 
Hayes Smartmodem II 300 Baud 169.00. 
Hayes Smartmodem 1200 Baud 429.00 
Novation J-Cat 300 Baud 115.00 
FOR EVERYONE 

Network Four Outlet Surge Prot. 
CCR-81 Cassette Recorder 52.00 
CCR-82 Cassette Recorder 43.00 
C-20 Digital Cassette Tapes (10рк) 9.95 
Verbatim SSDD Plastic Box (10рк) 24.95 
Verbatim DDDD Plastic Box (40pk) 29.95 
Generic SSDD Diskettes (40pk) 17.95 
NEC 64K Ram Chips (set of 8) 39.00 
Radio Shack 16K Ram Chips (8) 25.00 
Locking Disk Box (holds 70) 19.95 
Flip N File Disk 50 15.00 
Fanfold CleanEdge Paper (2600) 35.00 


69.95 


Radio Shack software 10% off. 
Send for complete listing of 
brand name software and hardware. 


SINCE 1975 


IN MASSACHUSETTS CALL (617) 486-3193 


TRS-80 is a registered trademark of Tandy Corp. 
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Tandy computers 





„ „„ almost 


Тег everything 


Check out the software that completes their systems 


Tandy MS-DOS Software Comparison Chart 
File/Report "I Smallware 
CHARACTERISTICS: 
Scien [no | Peeing” | YES М 


A 

Developed systems and data сап be 

moved to multi-user environments ^ Ё 
Professional support available 

from the software's authors A 


CAPACITIES: 


Fields per record 






















ა 


Characters рег record 1679 


4608 
16,000,000 | 


Records per file 


Indexes per file 





Number of digits per numeric field 








Number of files usable concurrently 


up to 8 


Files span multiple drives 


FEATURES: 


pl. mu 
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| 999 M 
| 4608 M 
16,000,000] 
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Full-screen facility for creating 
custom screen layouts 
Full-screen facility for creating 
custom report layouts 

Built-in field types 

(error checking) 


YES 


|% 





ргодгаттег 
required 


programmer 
required 

programmer 
required 


possible 


programmer 
required 

programmer 
equired 


User-defined field types 





Conditional math 


User-defined menus 


Change file layout without 
losing existing data 








possible 
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Data protection 





YES “რ. 





Password security 


-20 230 West 41st Street, Suite 1200, New York, New York 10036 


Smallware and filePro are registered trademarks of The Small Computer Company, Inc. dBase II is a trademark of Ashton-Tate. pfs File/Report 


is a registered trademark of Software Publishing. Profile is a registered trademark of Tandy Corporation 
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—filePro® 


The new Tandy computers 
can really speed things up. If 
you don't let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi- 
user computers. 

filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store’s Express 
Order Software service. 


To order, call 

(800) 847-4740. 

For customer service or 
when ven in New York 
State, call (212) 398-9290. 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other PORA 


including IBM PC, IBM PC-XT, 
NCR Decision Mate. > 
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An Oracular Spectacular: 


Tune in our 
New Delphi SIG 





ne of the things we've been 
(m to be involved with for 

a long number of years has 
finally come to pass. We're very happy 
about it and I think you will be, too, 
because it means an expanded capabil- 
ity for you and your computer. 

Here at PCM, we figure that we are in 
the communications business. That is, 
we believe our primary goal is to com- 
municate things to others; while, at the 
same time, allow others to share infor- 
mation with one another. 

I happen to think we do all this pretty 
well (and the mail I get from many of 
you seems to indicate agreement) but 
there has always been a wish that we 
could do it better. Now, I think we have 
a way. 

By the time you read this, we will be 
heavily involved in supplying informa- 
tion to you through a telecommunica- 
tions capability. We have selected the 
Delphi network for a number of reasons 
I will not go into here, but suffice it to 
say that now you can call up Delphi and 
join our MS-DOS Special Interest 
Group (or SIG). 

There is no initial cost — either for 
the first hour on Delphi, for joining 
Delphi, or for joining the MS-DOS SIG 
— if you're a PCM subscriber. If you are 
not, then you can subscribe and get the 
same benefits. There is detailed infor- 


mation elsewhere in this issue. 

Delphi connect time is inexpensive 
after your first free hour. Just $6 an 
hour, even at 1200 Baud. But best of all, 
it offers a two-way communications 
medium for you and for us. You'll be 
able to leave your questions on the 
forum and get answers; you'll be able to 
communicate in real time with many of 
our columnists through the conference; 
you'll be able to participate in polls (and 
create your own); and, you'll be able to 
download programs which appear in 
PCM for a small fee as well as have the 
ability to access a host of free programs 
from other users of the service. 

Leave us a "letter to the editor" on 
Delphi. And, if it has a question, we'll 
try to answer. Or, maybe some other 
member of the SIG will. We'll still print 
those we think have wide appeal. But 
your answers should come faster. 

“Talk” directly to Bill Barden, Danny 
Humphress or a host of other people 
involved with PCM! We'll post confer- 
ence schedules on the SIG, but we'll also 
print preliminary schedules in the mag- 
azine itself. 

Truly, I think Delphi opens a whole 
new world to us. And, for the first time, 
will give you an alternate way to obtain 
program listings from our pages quickly 
and easily — without having to type 
them in. Yes, we’re still planning on a 


disk service at some time in the future, 
too. 

But Delphi isn’t the only new out- 
reach program we'll offer. In coopera- 
tion with CompuServe, you can now get 
listings from PCM through their SOF-- 


-TEX service. As at Delphi, there is a 


small cost here, too. 

We're excited about the new things 
we will be doing because we see our 
association with Delphi and with Com- 
puServe as an extension of PCM. We 
especially hope you'll take advantage of 
(at least) the free hour of connect time 
on Delphi and “meet us" in person. 

Everyone here at PCM looks forward 
to hearing from you and sharing infor- 
mation with you. Tune in and say 
*hello!" 

I can't resist mentioning that a num- 
ber of months ago I reported here that 
Tandy's super DeskMate program 
would be available for other machines 
in its line, too. Desk Mate has been 
announced for the 2000, as well as the 
Color Computer and the Model IV. Our 
new monthly Desk Mate column called 
"The Integrated Desk," starting with 
this issue, will help you make the most 
of this program. 

Now, watch for us to provide you 
with more excitement in the months to 
come. 


— Lonnie Falk 
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YOU CHOOSE: 


Terminal Emulation Mode 
Menu-driven Interface 
Expert/brief Command Mode 
Extensive Help Facility 
Directory-based Autodialing 
Automatic Logon 
Programmable Function Keys 
Multiple Modem Support 


File Transfer Mode 

Error Checking Protocol 
Wildcard File Transfers 

File Transfer Lists 

XMODEM Protocol Support 
Mainframe Versions Available 


Command Language 
Conditional Instructions 

User Variables 

Labels 

Fast Interpreted Object Code 
Program Run 

Subroutines 

Arithmetic and String Instructions 
Debugger 


Miscellaneous 

Remote Access 

Electronic Mail 
Unattended Scheduling 
Expandable Interface 
CP/M Versions Available 


Crosstalk XVI Smartcom II 


Yes Yes 
Yes 
Yes Yes 


Yes Yes 


Yes 
Yes 


Yes 
Yes 


Yes 





MLINK 


The choice is easy. Our MLINK Data Communications System is the most powerful and 
flexible telecommunications software you can buy for your personal computer. And 
it’s easy to use. MLINK comes complete with all of the features listed above, a clear and 
comprehensive 275-page manual, and 21 applications scripts which show you how 


our unique script language satisfies the most demanding requirements. 


Choose the best. 


Choose MLINK. 


--------------.-.......-................................................................................... 


Corporote Microsystems, Inc. 
P.O. Box 277 

Etno, NH 03750 

(603) 448-5193 





Please send me the following version(s) of MLINK: 


Tandy Model 1000/1200 (MS-DOS) 
Tandy Model 2000 (MS-DOS) 

Tandy Model 4 or 4P (CP/M Plus only) 
— _ IBM® PC or compatible (PC-DOS) 
Send me more information 














Other versions are also available. 
Please call for current version information. 


Introductory offer - we pay shipping! 
Include $250.00 for each copy of MLINK. 
Outside North America add $15.00 (U.S.) 


—— Check enclosed -... MasterCard - Visa 
— — COD (Registered checks or money orders only) 


Самар LICET даа IL E 


Signature 


Ship to: 
Name 


Address 


City/State/Zip 


MLINK is a trademark of Corporate Microsystems, Inc. Crosstalk XVI is a trademark o! Microstuf. Smartcom Il is a trademark of Hayes Microcomputer Products. IBM is a 
registered trademark of IBM Corp. PC-DOS is a trademark of IBM Corp. MS-DOS is a trademark of Microsoft Corp. CP/M is a registered trademark of Digital Research. 


ІШЕ Letters to PCM 


REDEFINING KEYS 


Editor: 

I have enjoyed all of Danny Humph- 
‘ress’ articles on MS-DOS. He writes so 
that I not only understand, but I also 
enjoy reading them. His latest DOSsier, 
“Exploring ANSI.SYS” (September 
1985, Page 72), was of particular interest 
to me. Ever since I bought my Tandy 2000 
I have wanted to redefine my keyboard for 
one-handed operation in the arrangement 
developed by Commander August 
Dvorak, USNR. I have an electric type- 
writer with that arrangement and it has 
me completely spoiled. 

I used Mr. Humphress’ procedure and 
have written the program as an AUTO 
EXEC .BAT file so the keyboard is rede- 
fined on start-up. It does a fine job, except 
it is only effective while in MS-DOS. 
When I run my word processor (My 
Word), the keyboard reverts back to the 
old arrangement. When І again return to 
the system, the keyboard returns to the 
redefined state. Is there any way to retain 
the redefined keyboard when running this 
program? 

James W. Young 
Aberdeen, WA 


Editor’s Note: Unfortunately, the 
redefined keyboard only works 
while in MS-DOS command mode 
or in a program that uses ANSI's 
keyboard driver. There are a 
number of commercially available 
programs, however, that will allow 
you to redefine keys. Borland Inter- 
national's ProKey is the one I use 
most often. 


DESPERATELY SEEKING 
SCREEN DUMP 


Editor: 

I read PCM every month and I am very 
glad to see it growing. I started with a 
Tandy Color Computer and purchased 
my Tandy 1000 the first week it was 
available. 

I am interested in finding a graphics 
screen dump program for the Tandy 1000 
that will print graphics on a Prowriter 
8510A. There must be one out there 
somewhere. I have looked through PCM 
and IBM magazines and have not found 
one yet. Could one of the readers suggest 
a source for a program like this (commer- 
cial or public domain)? Send response to 
4730 Robert Frost Way, 95842. 

I have purchased many books for IBM 
BASIC and PC-DOS since there are not 
many Radio Shack or third party books 


available for the Tandy 1000 yet. АП of 
the books or products have been very 
useful. The Tandy 1000 emulates the IBM 
РС and PCjr so well it’s like having two 
computers in one. Most of the informa- 
tion in these books applies directly to the 
Tandy 1000, so don't worry if it says IBM. 
Anyone who has a Color Computer and 
a Tandy 1000 should consider buying the 
program CoCo-Util from Mark Data 
products. This program is an excellent 
package that allows file transfer between 
these two fine computers. 
Steve Batson 
Sacramento, CA 


TANDY/IBM DIFFERENCES 


Editor: 

My first subscription issue of PCM 
arrived [August 1985]. Now I don't have 
to hunt the magazine racks every month 
looking for the latest issue. I like PCM very 
much and find something of value in every 
issue. 

I have some questions — and these may 
be of interest to other Tandy 1000 owners. 
რ | have included a printout of the direc- 
tories of both the Tandy 1000, MS-DOS 
2.11 disk and the IBM PC-DOS 2.10. The 
sizes of the various files are quite different 
and, in most cases, the ones on the Tandy 
1000 disk are larger. The most extreme 
example is MODE.COM (32,910K on the 
Tandy; 3,139K on PC-DOS). Why the 
size discrepancy? To my knowledge, there 
is no difference in EDLIN.COM between the 
two systems, so why the size difference? 

This raises another question: Can I mix 

and match these files? That is, suppose I 
use MODE . COM from PC-DOS instead of 
the Tandy 1000 version, what would 
happen? 
9 The salespeople at my local Radio 
Shack Computer Center say the internal 
hard drive for the 1000 cannot be retro- 
fitted to my 1000. Instead, they say I will 
have to use the external hard drive. OK, 
but this weekend, I helped a friend install 
the Quibie 20-megabyte drive in her 
Corona. It comes with a short disk con- 
troller card that fits in the 1000. And, it 
costs only $599! 

No one can tell me if the power supply 
in the 1000 will stand up to the demands 
of a hard drive. The article in the August 
issue on networks mentioned you have 
1000s with hard drives. What are your 
feelings on the adequacy of the 1000's 
power supply? 

I have installed a PBJ 512K board and 
would like to install the Quibie 20- 
megabyte drive. Would that put too big 
a load on the power supply? 

9 In the "MS-DOSsier" column, you 
mention a device driver, available through 


the Tandy Express Order Software, that 
sets up a RAM disk. The people at the 
local Radio Shack Computer Center have 
no idea what that might be. Could you 
help us out and give us the name? 


Robert P. Johnson 
Seattle, WA 


Editor's Note: Unlike most of the 
external MS-DOS commands, 
MODE is usually supplied by the 
hardware vendor. The versions of 
MODE for IBM and Tandy have 
different features and were devel- 
oped separately. Гһауе used IBM’s 
MODE on a Tandy 1000 with no 
problems, however. 

As far as I can determine, the 
power supply in the Tandy 1000HD 
is of the same wattage as the one in 
the non-hard disk 1000. If you are 
considering installing a third-party 
drive, I would suggest purchasing it 
from a vendor that specifically 
supports the Tandy 1000. 

The RAM disk emulation soft- 
ware driver mentioned in the Sep- 
tember 1985 "MS-DOSsier" is 
called RAMDisk-MS, Radio 
Shack Express Order No. 90-0146, 
29.95. 


OOPS! 


Editor: 

There is an error in the listing of my 
program in the September 1985 issue of 
PCM. On Line 120 of Page 30, the last 
command should be FI-3. I would be 
happy to respond to inquiries that are 
accompanied by a self-addressed, 
stamped envelope. My address is 1000 N. 
Oak Avenue, 54449. 

John W. Melski, M.D. 
Marshfield, WI 


MOVIN' ON UP 


Editor: 

I started with a Tandy Color Computer 
and think the upgrade to the Tandy 1000 
and PCM was worth the investment. Keep 
up the good work. It is greatly appre- 
ciated. 

Bill Barden's article “Тһе Sounds of 
Science" (September 1985, Page 11), was 
most amusing. 

I would like to see a review of CoCo- 
Util from Mark Data Products. I have a 
need to transfer files from a Color Com- 
puter to a Tandy 1000, and would like an 
unbiased opinion before I purchase it. 

Roy W. Osborne II 
Council Bluffs, LA 
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HARD DRIVE PRICE BREAKTHROUGH 


STARTING AT $299.95! 


5 to 60 megabytes complete easy to install internal and external systems 
— will boot just like an XT — fully warranteed — 
same day shipping from stock — fast service — free technical assistance 


%499.95 to 5999.95 
STREAMING ОК FLOPPY ТАРЕ BACK UP SYSTEMS 


complete internal and external systems 


$1,995.00 — IBM XT WORKALIKE SPECIAL 
20 megabytes — one floppy — 640K — clock calendar — serial port — parallel port 
monochrome card — monochrome monitor with tilt and swivel base 
Keytronics 5151 style keyboard — one year warranty — shipped from stock 


MEGADISK™ HARD DISK DRIVE SYSTEMS TOLL FREE ORDERING 1-800-343-8841 
Ernie í IBM/PC, Tandy 1000, TRS/80 Models I/III/IV/4P, Compaq, PC Workalikes, Color Computers, Heath/Zenith, Max/80 


Complete with Hardware, Cables, Software and Quikfit Installation 
5 Megabytes Internal Mount ............... N starting at $ 279.95 
Megabytes Internal Маши су» << oie NÉ πο an ео E ас косата Warde,» wie aa өмі» starting at 439.95 
Megabytes Internal Mount 
Megabytes External System 
Megabytes External System 9 
Megabytes External System AC starting at 
Tape Backup System — Interna; Or External starting at 
კ . f IBM/Heath — DOS, 1.0, 2.0, 2.1, 3.0, or later 
DOS Systems Available: 4 TRS/80-LDOS, TRSDOS 6.x, Newdos/80, Dosplus, CP/M, СОСО DOS, Max/80 LDOS, 059 
FULLY WARRANTIED — PARTS AND LABOR — 24 HOUR SERVICE — CALL TOLL FREE — 1-800-343-8841 


IBM ENHANCEMENT CARDS 
Multifunction with 384K $259.95 Color graphics 
Serial port, parallel port Monochrome/RGB Color 
Clock calendar, game port Disk controller with cable — up to 4 drives 
Serial port — two port K 384K memory 
Monochrome only K Hard drive controller 
Monochrome graphics w/parallel port 





DEALER INQUIRIES INVITED PRICES CHANGE EVERY DAY 
CALL 1-617-872-9090 CALL 1-800-343-8841 
© 


iss SOFTWARE SUPPORT, INC. 


1 Edgell Road, Framingham, МА 01701 (617) 872-9090 Telex-383425 
Hours: Mon. thru Fri. 9:30 am to 5:30 pm (E.STT.) Sat. 10 am to 3:30 pm 
SERVICE POLICY — Our Professional Technical Staff Is Available To Assist You Monday Through Saturday. 
WARRANTIES — Up To One Full Year Parts And Labor. Floppy Disk Drive Power Supplies — Five (5) Years. 
SERVICE — 24 Hour Turn-A-Round On All In-Stock Parts. Dealer Inquiries Invited. Call 617-872-9090 


Please Call For Shipping, Toll Free 1-800-343-8841 πο ADE ET aa өше то, 


Handling And Insurance. Please Call For Our Latest Price Saving Specials. йокы наны 

















WERE BRINGING THE TANDY 


PCM and the Delphi Information Util- 
ity have joined together to allow 
Tandy MS-DOS owners all over the 
world to connect with one another! 


Delphi is a full-service information 
utility. It offers everything from up- 
to-the-minute news stories from The 
Associated Press to electronic mail 
services. But, best of all, it now has 
a special forum for owners of MS- 
DOS computers, and it's operated 
by the people who bring you PCM 
each month. 


The MS-DOS Special Interest Group 
(SIG) features a variety of services, 
including an open forum where you 
can send and receive messages 
from Tandy owners all over the 
world. It also has databases for ex- 
changing programs, where you can 
upload your favorites and download 
programs written by other Tandy 
MS-DOS enthusiasts. 


DELPH 


The MS-DOS SIG's conference fea- 
ture allows you to meet electroni- 
cally with other members of the 
Tandy Community. You can join 
conferences with many notables in 
the world of MS-DOS on a regular 
basis. Conference schedules will ap- 
pear in PCM each month. Be sure to 
check online announcements for 
changes and additions. 


On Delphi, You can renew your PCM 
subscription, make a fast and easy 
order for software or hardware from 
a multitude of vendors, or inquire 
about products on the MS-DOS 
SIG. 


We also have a number of programs 
that you can download and use, just 
for the cost of the time you spend 
transferring them. There'll also be 
corrections for PCM articles, helpful 
hints and many other useful fea- 
tures. 











PCM is offering subscribers a free life- 
time subscription to Delphi — a 
$29.95 value — and a free hour of 
connect time — a $6 value at either 
300 or 1200 Baud during evening, 


` holiday and weekend hours — so 


you can sample Delphi and the 
brand new PCM MS-DOS SIG. That's 
right. Your subscription to PCM en- 
titles you to this $35.95 value as a 
free bonus! 


If you're not a PCM subscriber, just 
enter your order when you sign on 
with Delphi and you'll get the same 
great deal! For our $28 subscription 
fee, you'll get the finest Tandy com- 
puter magazine ever, a free lifetime 
subscription to Delphi and a free 
hour of connect time. 


Want to save an extra $15? While 
you're online, you can order the Del- 
phi Handbook and Command Card 
($21.95) and three hours of connect 
time ($18) for only $24.95. 


Delphi provides us all with Imme- 
diate Tandy Community. Check it 
out today. After all, you can sample 
it for free! 


ТЕРЕ: 
GROUP MSDUS 


COMMUNITY ТОСЕТНЕН! 


There аге several ways to connect to Delphi and 
PCM's MS-DOS SIG. In most cities you will not even 
have to pay long distance charges; you can use special 
data communications networks, like Uninet, Tymnet 
and the Canadian Datapac network. 

First, set your terminal program to operate at either 
300 or 1200 Baud (depending on the modem you have), 
and also select either 7 bits with even parity or 8 bits 
with no parity, and 1 stop bit. (If one combination 
doesn't work, try another.) 

Decide which network you should use (there is no 
surcharge for any of them, unless you have to make a 
long-distance call) and follow the instructions below: 


On Uninet: Call (800) 821-5340 to get the Uninet 
number for your area. After you call the appropriate 
number for your own area and make connection, press 
ENTER, the period key (.) and ENTER again. At the 
“ѕегуісе:” prompt, type GVC (for General Videotex 
Corporation) and ENTER. 


On Tymnet: Call (800) 336-0149 to get the Tymnet 
number for your area. After you dial your designated 
number and make connection, simply press “А” no 
matter what appears оп the screen. When “please log 
in:” appears, type DELPHI and press ENTER. 


From Canada (on Datapac): Call Delphi Customer 
Service at (617) 491-3393 to get the Datapac number 
for your area. After you connect, press the period key 
(.) and ENTER (use two periods if you’re using 1200 
Baud). Type SET 2:1, 3:126 and press ENTER. Now 
type p 1 3106, DELPHI; and press ENTER. 


From other countries: Many countries have their 
own data networks that can connect to either Uninet 
or Tymnet. Check with the telephone authorities in 
your country for details on how to sign up for this 
service. When you have an account set up, you can 
reach Delphi with a “host code” of 312561703088 
through Uninet, or 310600601500 through Tymnet. 
(You'll have to pay the toll charges for this connection.) 


Type in Your User Name 

If you’re already a subscriber to PCM, at the “USER- 
NAME:” prompt, type PCMSUB and press ENTER. At the 
“PASSWORD:” prompt, type your individual sub- 
scription number from the mailing label of your latest 


issue of PCM. (If there are one or more zeros at the 
beginning of this number, include them.) 


If you don’t already have a subscription, at the 
“USERNAME:” prompt, type PCMORDER and press 
ENTER. At the “PASSWORD:” prompt, type SENDSUB 
and press ENTER. Have your MasterCard, VISA or 
American Express card ready, because you'll be led 
through a series of questions that will enable us to put 
your PCM and Delphi subscriptions into effect. In an 
effort to hold down non-editorial costs, we do not bill 
for subscriptions. 


If you make a typing error, just press ENTER and start 
over. Remember that at any point, when you're on 
Delphi, you can type HELP to get help on how to use 
the system. To get off the system just type BYE. 

If you find that you're unable to log onto Delphi and 
enter the MS-DOS SIG after following these instruc- 
tions, call us during afternoon business hours at (502) 
228-4492. We'll be glad to offer assistance. 


Come Visit Us! Type: GROUP MSDOS 

After you sign in, you'll be prompted to set up your 
own, personal *user name" — Delphi is a friendly 
service, no numbers to remember — and you'll be asked 
a number of questions so Delphi can set up your 
account. You'll also be assigned a temporary password. 
No time is assessed against your free hour of service 
while you answer these questions. 

Delphi will tell you that your account will be ready 
after 6 p.m. the same day if you sign up before noon 
(Eastern time zone.) If not, your account will be ready 
at 6 p.m. the next day. Once an account is opened, each 
PCM subscriber will be credited with an hour of free 
time! 

When you log back in, use your chosen user name 
and your temporary password to access the system. At 
that point, you will meet Max, who will help you 
configure things and will change your temporary 
password into your own personal password. This is the 
password you will use for subsequent sessions — or 
until you change it. Again, there is no charge for the 
time you spend configuring your account. Your hour 
of free time starts after Max bids you goodbye. 

You'll wind up at the Delphi Main Menu; type in 
GROUP М5005 and join us оп the MS-DOS SIG! 
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Produce labels with ease with this handy 


BASIC program 


100/200 





The Fantastic Label Machine 


АС'К is a small program writ- 

/ ten іп Model 100/200 BASIC 

that may come in handy for 
anyone who has a need to print multiple 
labels. The printer control codes are set 
for the Tandy DMP-200 printer but 
may be easily adjusted to accommodate 
other printers. 

At home, I use the program to print 
return labels and address labels for any 
bills or payments that occur on a regular 
basis. Rent, car payments, insurance 
premiums and water bills are some that 
seem to pop into our mailbox on a 
regular basis. I’m sure you can think of 
others. And since my handwriting 
seems to be a cross between that of a 
doctor's and a preschooler's I much 
prefer using peel-off labels for those 
important checks which my wife and I 
send through the mail. 

In addition to the options for printing 
standard sized labels in a *one-up" or 
“two-up” format, I have included a 
routine which I call “stencil” that can be 
used for larger labels (534" by 2!5/16”) 
which are very handy for mailing large 
envelopes and packages. 

And now some comments about the 
program and how it works. TAG’R is 
an easy-to-use, menu driven program 
without many bells and whistles. When 
first run, the program presents a short 
two-part title screen followed by the 
main menu which offers five options: 
1) Enter Data, 2) Save to RAM, 
3) Load from RAM, 4) Select and 
5) Quit. To start, select Option 1, Enter 
Data, and you will be greeted by the 





(Roger F. Krueger works in the field of 
materials handling in Dansville, N.Y. 
He has a bachelor's degree in English 
and is a self-taught BASIC programmer.) 


message: (Press ENTER when finished). 

At this point, it is simply necessary to 
enter the address one line at a time up 
to a maximum of five lines. After the 
fifth line, you will have the option of 
correcting the entry by entering it again 
or continuing to the next address by 
selecting Y or N. When you have finished 
entering the addresses you need (to a 
maximum of 20), pressing ENTER at the 
LINE 1. prompt will return you to the 
main menu. 

It is a good idea at this point to use 
Option 2 and save the data to RAM. If 
the addresses are likely to be needed in 
the future, it is an easy matter to save 
the text file which is created to tape 
using the standard procedures outlined 
in your owner's manual. 

After you have saved your data, it is 
time to use Option 4 to choose your 
addresses, set your printing parameters 
and print your labels. 

Upon selecting, you will find a list of 
the first lines of entries one through five 
and a single line submenu indicating 
"Select, Continue and Return." This 
menu operates by your keying in the 
first letter of the option you want to use. 
If you find the first line of the address 
you want listed on the screen, simply 
press S followed by the number preced- 
ing that line on the display. This will 
take you to a screen displaying the 
complete address as you entered it and 
the choice of going to the hard copy 
menu or returning to the selection 
screen. 

If you press H, the program drops 
down to another menu with the follow- 
ing options: 1) Change Font, 2) one- 
up Labels, 3) two-up Labels, and 
4) Return. If you simply want to print 
regular labels in the normal font, choose 
either Option 2 or3 to correspond to the 


By Roger F. Krueger 


type of labels you are using and you will 
then seé a prompt requesting the 
number of labels you wish printed. For 
two-up labels, enter an even number, 
and for one-up, any amount. Press 
ENTER and, if your printer is online and 
your labels properly aligned, just relax 
and wait a bit. You should have your 
labels in a short period of time. 

If you decide at the last menu that you 
wish to either print larger labels or you 
want a different print style, select 
Option 1, Change Font. This gives you 
the choices 1) Label or 2) Stencil. If 
you choose stencil, you simply have to 
answer the prompt requesting how 
many labels you want. If you choose 
label, you will be offered the following 
choices: 1) Normal, 2) Bold, 3) Con- 
densed, 4) Compressed and 5) Elon- 
gated. Selecting one of these returns you 
to the hard copy routine menu at which 
point you choose one-up or two-up 
labels. Then indicate how many you 
want and, once again, you should be in 
the label generating business. 

At this point I would likc to go back 
and fill in a few details about how the 
selection routine works. Pressing C (for 
continue) will either drop to the next 
selection screen of five items or the 
Hardcopy/ Return screen with the first 
address being displayed. Pressing R (for 
return) at this point will bring you back 
to the first selection screen, but pressing 
R in any of the selection screens will 
return you to the main menu. 

Essentially, that is how the program 
works. It shouldn't take long to get the 
hang of it. Τά recommend running 
through the menus and getting the feel 
for how it works before powering up 
your printer, and then testing it with 
plain paper to see the hard copy results 
before using actual labels. 
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Although I primarily use this рго- 
gram at home, it may come in handy for 
anyone who works in a shipping depart- 
ment where multiple labels are fre- 
quently used. Perhaps, if you work at 
a plant where it is a common practice 





to ship five or more packages to the 
same address, it could save a shipping 
clerk a lot of extra typing. 

In any event, I have found that it is 
a definite cure for two well-known 
syndromes — writer's cramp and 
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*chicken scratchitis." Well, I think I'd 
best get back to work on that other 
program which is kicking around in the 
back of my head. In the meantime, I 
hope this one works for you, and happy 
Model 100/200 computing. 


3050 PRINT#1,A1$(X) : PRINT#1,A2$(X) : PRINT 
#1,A3$(X) : PRINT#1,A4$ (X) : PRINT41,A5$ (X) 


(საია (IIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 3030 OPEN NN$ FOR OUTPUT AS 1 
| BAR CODED LISTING | 39040 FOR X-1 TO Y-1 
I ფითითიიითითი4IIIIII1I>III О 
The listing: 3060 NEXTX 


3070 CLOSE:RETURN 


30 GOSUB 50000 4999 ' RAM LOAD ROUTINE 

20 ' TAG'R 5000 CLS 

69 ' by Roger F. Krueger 5020 BEEP:PRINTQ297,"Filename:  ";:LINEI 
79 ' 62 ELIZABETH STREET NPUT NN$ 

8g ' DANSVILLE, NY 14437 5949 OPEN NN$ FOR INPUT AS 1 

ορ ' (716) 335-5611 5945 Y-1 

95 ' 5050 IF EOF(1) GOTO 5200 

97 ' AUGUST 18, 1985 5060 LINEINPUT#1 ,A1$(Y) 

98 ' 5070 LINEINPUT#1 ,A2$(Y) 

100 CLEAR 2000 5080 LINEINPUT#1,A3$(Y) 

110 DIM A1$(29) ,A2$(2) ,A3$(29) ,A4$ (29) , 5090 LINEINPUT#1,A4$(Y) 

A5$ (29) 5100 LINEINPUT#1 ,A5$(Y) 

1999 CLS 5120 Ү-Ү%1 

1020 PRINT@5Ø ,"### Label Menu ###" 513g GOTO 5050 

1030 SOUND 1800,10 5200 CLOSE 

1040 PRINT@124,"1. Enter Data 2. бау 5399 ' SELECTION ROUTINE 

e to RAM" 5400 CLS:FOR X-1 TO Y-1 STEP 5 

1060 PRINT@164,"3. Load from RAM 4. Sel 5405 FOR K- X TO X+4 

ect" 5410 PRINTK; : PRINTA1$(K) 

1080 PRINT@294,"5. Quit" 5420 NEXT K 

1090 PRINTQ290,"Select [1-5]" 5449 PRINT@24G, "Select Continue Retu 
1100 K$=INKEY$:IF K$-"" THEN 1100 үне, ж 

1119 IFVAL(K$)«1 OR VAL(K$)>8 THEN 1000 5442 K$-INKEYS:IF K$-"" THEN 5442 
1120 ON VAL(K$) GOSUB 2000,3000,5000,540 5459 IF K$-"S" OR K$-"s" THEN 5470 
0,9000 5460 IF K$="R" OR K$-"r" THEN 1000 
1159 GOTO 1000 5465 IF K$-"C" OR K$-"c" THEN 5480 
1199 ' DATA ENTRY ROUTINE 5470 PRINTQ289,"Enter Selection #:  ";:I 
2000 CLS NPUT L:GOTO 5679 

2005 Y-1 5489 CLS:NEXT X 

2010 PRINT" Press «Enter» when finish 5485 GOTO 5670 

ed." 5500 RETURN 

2050 LINEINPUT" Line 1: ";А1$(Ү) 5679 CLS 

2055 IF А15(Ү)-"" THEN RETURN 5690 PRINT A1$(L) 

2060 LINEINPUT" Line 2: ";A2$(Y) 579% PRINT A2$(L) 

2070 LINEINPUT" Line 3: ";A3$(Y) 5716 PRINT A3$(L) 

2080 LINEINPUT" Line 4: ";A4$(Y) 5720 PRINT А49(1.) 

2090 LINEINPUT" Line 5: ";А5$(Ү) 5730 PRINT A5$(L) 

2092 LINEINPUT" Is entry correct (Ү/М)?" 5750 PRINT@242," Hardcopy Return" 
:Α8 5760 К5-ІМКЕҮ9:ІЕ K$-"" THEN 5766 
2093 IF A$="N" OR A$-"n" THEN 2010 ELSE 577) IF K$="H" OR K$="h" THEN 29999 
2095 780 IF K$="R" ОВ K$="r" ТНЕМ 5400 
2095 Y=Y+1 8999 ! END PROGRAM 

2149 GOTO 2050 9999 END 

2999 ' RAM SAVE ROUTINE 9999 ' STENCIL-LABEL OPTION 

3000 CLS 10000 CLS:PRINT@45,"1. Label" 

3919 PRINTQ297,"Filename:  ";:LINEINPUT 10020 PRINTQ85,"2. Stencil" 


NN$ 
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19949 K$-INKEYS:IF K$-"" THEN 19949 
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Text processing power that no other program can equal. 





PCSG says “Send it back in 30 days for a full 
refund if you don't agree.” 


on Snap-in™ Cartridge $99. 





WRITE ROM is the definitive word 


processing extension for the Model 100. 
PCSG the first text formatter for the Model 
100, now sold by Radio Shack as Scripsit 
100: Now 18 months later PSCG introdu- 
ces WRITE ROM. Those who have expe- 
rienced it say WRITE ROM literally dou- 
bles the power of the Model 100. 

First of all, WRITE ROM as its name 
implies is on a snap-in ROM. You simply 
take a quarter and open the little compart- 
ment on the back of the Model 100 and 
press it in. It is as easy as an Atari game 
cartridge. You can use other ROM pro- 
grams like Lucid whenever you wish. 

WRITE ROM lets you do every format- 
ting function you would expect like setting 
margins, centering, right justifying and 
having headers and footers. But it does 
them under function key control. 

WRITE ROM remembers your favorite 
format settings so that you can print a 
document without any setup, but you can 
change any formatting or printing parame- 
ters instantly with a function key. 

WRITE ROM's “pixel mapping" feature 
shows you an instant picture on the screen 
of how your printout will look on paper. 

In all there are 64 separate features and 
functions that you can do with WRITE 
ROM, and some of these features are truly 
breakthroughs for the Model 100. 

First, WRITE ROM lets you do search 
and replace. Any word or phrase in a 
document can be searched for and 
replaced with any other phrase where the 
search words appear. 

Second, WRITE ROM lets you send any 
text (formated or not) to any other 
computer over the phone with just a 
function key. What's more it dials and 
handles sign on and sign off protocol 
automatically. 

Third, WRITE ROM has a wonderful 
feature called Library that lets you record 
favorite phrases, words or commonly used 
expressions (often called boilerplate). 


Any place you wish any Library text to 
appear you just type a code. WRITE ROM 
automatically inserts the text just like a 
Xerox Memory Writer. 

Picture what you can do with that kind 
of capability. 

WRITE ROM is blindingly fast. No one 
can claim faster operation. Because it is 
on ROM it uses virtually none of your 
precious RAM. It works with any printer, 
serial or parallel. You can make a duplicate 
copy of a document file under a new 
filename. Rename or delete (kill) any RAM 
file with function key ease. 

This description only scratches the 
surface of the amazingly powerful piece 
of software. Dot commands allow control 
of such things as margins, centering, line 
spacing and other changes in the middle 
of a document. Most are Wordstar 
compatible. 

A mail merge feature allows you to send 
the same document to every name on your 
mailing list, personalized for each 
recipient. 

WRITE ROM enables you to do under- 
lining, boldface and correspondence 
mode as well as any other font feature like 
superscripts that your printer supports in 
a way that many users say “is worth the 
price of the program.” 

To underline you don't have to 
remember a complicated printer code. You 
just type CODE U, and to stop underline, 
CODE U again. The CODE key is to the 
right of your spacebar. Boldface? CODE 
B to start and stop. Easy to remember and 
do. Five different printer features of your 
choice. 

We couldn't list all the features here. For 
example, not just double space but triple 
or any other. You can use your TAB key 
in a document. WRITE ROM allows you 
to indent. This means you can have 
paragraphs that have a first line projecting 
to the left of the rest of the paragraph. 
Plus many more features. 





WRITE ROM has а feature unique to апу 
word processor on any computer. It is 
called FORM. FORM is an interactive 
mechanism that lets you create screen 
prompts so that you or someone else can 
answer them to fill out forms or 
questionaires. 

With FORM anyplace where you had 
previously typed a GRAPH T and a prompt 
in a document, WRITE ROM will stop and 
you are shown that prompt on the screen. 
You can type in directly on the screen and 
when you press F8 you see the next 
prompt. Goes to a printer or a RAM file. 

Think of how you can use FORM. A 
doctor or nurse could use it for a patient's 
history with each question appearing on 
the screen. An insurance salesman could 
have his entire questionaire. You could 
construct a series of prompts to answer 
correspondence typing the answers, even 
using Library codes. This feature lets you 
answer letters in rapid fire fashion each 
with personalized or standard responses. 

Before WRITE ROM you had to be a 
programmer to create a series of prompts. 
Now its as simple as GRAPH T. 

PCSG makes the claim that WRITE ROM 
is the easiest, fastest and most feature rich 
formatter for the Model 100. We are happy 
to offer WRITE ROM because it expands 
the 100 to a dimension of text processing 
you cannot equal on even larger 
computers. 

We brashly state that WRITE ROM is the 
best you can buy. But put that to the test. 
If you aren't as excited as we are return 
it for a full refund. Priced at $99 on snap- 
in ROM. MasterCard, VISA, American 
Express and COD. 


1-214-351-0564 





HORIABLE СОМЕ ТЕК SURORT ORQ P 


11035 Harry Hines Blvd., 4207, Dallas, Texas 75229» 1(214) 351-0564 


PCSG provides hotline software support for the Model 100. Call us at 1-214-351-0564 





10050 ОМ VAL(KS$) GOSUB 10100,12000 
10100 CLS:PRINT@10,"** Choose Font XX" 
10120 PRINT 


19139 PRINT" 1. Normal" 
19149 PRINT" 2. Bold" 

10150 PRINT" 3. Condensed" 
10160 PRINT" 4. Compressed" 
10170 PRINT" 5. Elongated" 


19189 PRINT" Select (1-5)" 
10200 К9-ІМКЕҮ$:ІЕ K$-"" THEN 10200 
10210 ON VAL(K$) GOSUB 10290,10340,10390 
19449, 19499 

19229 GOTO 29999 

10290 GOSUB 30000 

10300 LPRINTCHR$(27);CHR$(19) 

10320 КЕТСЕМ 

10340 GOSUB 30000 

10350 LPRINT CHR$(27) ;CHR$ (31) 
19369 RETURN 

10390 со50в 30000 

10400 LPRINT CHR$(27);CHR$(29) 
10420 RETURN 


10440 GOSUB 30000 

10450 LPRINT CHR$(27);CHR$(21) 

10460 RETURN 

10490 GOSUB 30000 

10500 LPRINT CHR$(27);CHR$(14) 

10510 RETURN 

11999 ' Stencil Print routine 

12000 CLS 

12020 LPRINT CHR$(27);CHR$(32): LPRINT C 
HR$ (27) ; CHR$ (14) 

12030 PRINT:INPUT"How many labels do you 
wish "49 

12040 FOR I-1 TO J 

12045 FOR X-1 TO 4:LPRINT: NEXT X 

12050 LPRINTTAB(1);A1$(L) 

12060 LPRINT 

12079 LPRINTTAB(1);A2$(L) 

12080 LPRINT 

12090 LPRINTTAB(1) ;A3$(L) 

12100 LPRINT 

12110 LPRINTTAB(1) ;A4$(L) 

12120 LPRINT 

12130 LPRINTTAB(1) ;A5$(L) 

12140 FOR X=1 TO 5:LPRINT:NEXT X 

12150 NEXT I 

12155 LPRINT CHR$(27);CHR$(15):LPRINT CH 
R$(27) ; CHR$(19) 
12160 GOTO 5400 
2000) CLS 

20010 PRINT" XXX Hardcopy Routine XXX 


20020 PRINT 


20021 PRINT" 1. Change Font" 
20025 PRINT" 2. 1-Up Labels" 
20928 PRINT" 3. 2-Up Labels" 
20029 PRINT" 4. Return" 


20030 K$-INKEYS:IF K$-"" THEN 29939 
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20032 ON VAL(K$) GOSUB' 10000, 20949,2939 
Ø, 29699 

29935 GOTO 20000 

20039 ' 1-UP LABELS 

29949 PRINT: INPUT" How many labels do yo 
ü wish "0 

20060 FORI -1 TO J 

20070 LPRINTTAB(1) ;A1$(L) 

20075 LPRINTTAB(1) ;A2$(L) 

20080 LPRINTTAB(1) ;A3$(L) 

20100 LPRINTTAB(1) ;A4$(L) 

20110 LPRINTTAB(1) ;A5$(L) 

20115 LPRINT 

20120 NEXTI 

20139 GOTO 5400 

20299 ' 2-UP LABELS 

20300 PRINT:INPUT" How many labels do yo 
u wish";J 

20320 FOR, I-1 TO 1/2 

20330 LPRINTTAB(1);A1$(L);:LPRINTTAB(41) 
;А1$(1) 

20340 LPRINTTAB(1);A2$(L) ; :ІРКІМТТАВ(41) 
;A2$(L) 

20350 LPRINTTAB(1) ;A3$(L) ; : LPRINTTAB(41) 
;A3$(L) 

29369 LPRINTTAB(1) ;A4$(L) ; : LPRINTTAB(41) 
;A4$(L) 

20370 LPRINTTAB(1) ;A5$(L) ; : LPRINTTAB(41) 
;A5$(L) 

20380 LPRINT 

20390 NEXT I 

20400 GOTO 5400 

29699 GOTO 1000 

29999 ' Reset Printer Control Codes 
30000 CLS 

30010 LPRINT CHR$(27);CHR$(15):LPRINT CH 
R$(27);CHR$(32):LPRINT CHR$(27);CHR$(19) 
30020 RETURN 

50000 ' title screen 

50020 CLS 

50040 LINE(5,5)-(234,58),1,B 

50060 ІЛМЕ(50,10)-(190,53),1,ВҒ 

50080 PRINT@135," TAG'R " 

50100 PRINTQ179," PROGRAM " 

50110 PRINT@185," ххх " 

59129 FOR Х-1 TO 199%:NEXT X 

50200 SOUND189@ , 1%: SOUND2@99 , 1%: SOUND156 
9,19 

50220 CLS 

50240 LINE(5,5)-(234,58),1,B 

50260 LINE(5%,15)-(199,48) ,1,BF 

50280 LINE(55,20)-(185,43),0,B 

50300 PRINT@128," Presented by " 

50320 PRINT@171," Roger F. Krueger 
50340 SOUND1569% , 1%: SOUND2999 , 19: SOUND189% 
9,19 

50360 FOR T-1 TO 1000:КЕХТ Т 


50400 RETURN PCM] 














Diary Task File 
^77 ын 


For the TRS-80 Model 100 


More than a Calendar 


TMPC helps you organize 
your day. It is more than а 
calendar program; it is a 
toolbox to help you keep 
your most urgent tasks at 
top priority. 


Efficiency is no Game 
When you use TMPC, you 
enter the system of 
screens and corridors 
shown above and access 
features by moving 
through the rooms with 
the arrow keys. The 
screens may resemble an 
adventure game, but 
TMPC is a serious tool. 
The user interface will be- 
come second nature to 
you, like walking through 
the rooms in your home. 


Functions for Efficiency 


Each screen has its own 
function. For example, one 





screen includes a per- 
petual calendar, and an- 


other shows a "warehouse" 


of tasks to be done. In 
other screens you can set 
entries that repeat weekly, 
monthly, quarterly or 
yearly; request a warning 
of up to 999 days for any 
entry; sort your to-do list 
by stress level and 
priority; and more. 


Organization Philosophy 


TMPC has more than just 
"features;" it has a 
philosophy of time man- 
agement inspired by 
Stephanie Winston's best 
seller, The Organized 
Executive. You won't learn 
all there is to know about 
TMPC in five minutes, but 
after using it, you'll feel 
more organized, not just 
more computerized. 


A Plan for Efficiency 


4 в кь "1 
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ther 
for 81-14-84 


Spreading the Word 
One user told us that 
he felt guilty to get so 
much functionality at 
so low a price. Find out 
for yourself. Order 
TMPC today. 


TMPC by Ac'roá'tix 
$49.95 + $3.00 Shipping 


For more information, includ- 
ing how to get a Free Sample, 
call or Write: 

Acroatix Incorporated 
P.O. Box 273 
Wilmington, MA 01887 
(617) 658-5550 


Phone orders only call 


(800) 225-5800 


VISA | MasterCard | 
COD or Courier shipment available at extra 


charge. 


CERTIFICATION 
SEAL 





Feature 


ІНЕ 


This keyboard tutor provides the skill of 


a lifetime! 








TYPING 


hat a day! I’m free at last to 
spend some time playing 
(make that working) with my 


Tandy 1000. Here’s the latest issue of 
PCM with that “incredible, does-every- 
thing-known-to-mankind” program, 
mine for the typing. Now, let’s see: 


10 FOR X=1 to 2000 


Now, where is that *X' key today? 
Yesterday, it was somewhere down here 
in the bottom row. Forget it! III be two 
years typing this one in at this rate. 

If this sounds familiar to you, or if 
you can think of somebody else who 
might benefit from increased typing 
skills, then TY PING 1000 might just be 
for you. Typing is a skill which is a 
valuable tool to use throughout life, and 
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adds much to the enjoyment of comput- 
ing as a hobby. Like swimming, typing 
ability, once mastered, is not forgotten. 

I have tried to keep the screen format 
of TYPING 1000 attractive and at the 
same time easy to work on. Tandy 
BASIC is extremely cooperative in this 
effort, with its variety of screen displays 
aiding me to this end. 

When the program is first presented, 
a title screen is displayed along with the 
author's name. When the title clears, we 
are ready to get down to business. A 
simulation of the Tandy keyboard is 
kept on the screen at all times (less 
numeric key pad). This enables the 
student to keep his eyes on the screen 
and not on the keyboard. 

Student typists select from four dif- 
ferent exercises of an on-screen expla- 


nation of the program goals and fea- 
tures. My suggestion is to stay with 
Selection 1 (Beginner), until you be- 
come comfortable with the idea of 
leaving your fingers on the “home keys" 
(highlighted on screen in red). 
Learning to type is a rewarding expe- 
rience in its own right and no scores or 
levels are required to make you feel 
good. In addition, I have not empasized 
speed typing. If you don't know where 
the keys are, it doesn't matter whether 
you are fast or slow. Learn the keyboard 
and the speed will come along by itself. 
One thing which cannot be over empha- 
sized is this: “Keep your eyes on the 
screen display, not on the keyboard." 
TYPING 1000 does not employ any 
mind-warping tricks in programming. 
The style is rather straightforward and 








i 1000 By Leonard Hyre 


simple and the average programmer will 
have no difficulty following program 
flow. The first action in the program is 









to dimension needed string space in 
Line 120. From there we jump into the 
title screen, making use of the often 
neglected Screen 3 to display large 
letters for the TYPING 1000 banner. 
The subroutine at Line 1410 draws 
the keyboard display using CHR$ to 
create a reasonable likeness of the 
original. Please note that while this 


section has little to do with program 
operation, it is important to carefully 
check your work here as an error will 
give your program the look of an ASCII 
omelet. 

Users are then presented a menu 
offering a selection which will deter- 
mine where the program goes from 
here. The ΙΝΚΕΥΦ is used to get the user 
selection, which then is converted to a 
VALS numeric. This prevents the stu- 
dent from accidently messing up the 
screen by an errant input. 

Menu selections one and two share 
the same subroutines, only using differ- 
ent data for exercises. This routine 
utilizes Line 410 to call the subroutine 
at 1110 where the actual control is done. 
You should remember to press the 
ENTER key after each exercise is typed 
in. When a typist completes an exercise 
correctly four times, he or she hears a 
"shave and a haircut" and receives a new 
exercise. (I decided to add a little 
*pizzazz" to the program.) 

Exercise three is a “word practice" 
format, being handled by lines 490-650. 
The Selection four gives you a series of 
"Phrases and Sentences" and is con- 
trolled by a separate subroutine in lines 


(Leonard Hyre works as a claims repre- 
sentative for the Social Security Admin- 
istration. He has written several articles 
for THE RAINBOW, PCM % sister publica- 
tion for the Color Computer, and is the 
author of a number of commercial 
programs. He may be contacted at P.O. 
Box 403, Cambridge, MD 21613; 301- 
228-0064.) 


690-830. Successful completion of 24 
phrases leads to graduation of the 
student. 

If you wish to add or change exer- 
cises, it is a simple matter to do. Change 
or add information in the DRTR state- 
ments (lines 1850-1920) as you wish, 


The listing: 


remembering to also change the RERD іп 
Line 1850. Also, if exercises are added, 
the DIM in Line 120 must be modified. 
TYPING 1000 is a long program, but 
one which you may find of some value 
in your software collection. If you are 
overwhelmed at the thought of typing 


10 'XXXXXXXXXXXXXXXMXMXMXXX%XXXXXXXXXXXXXX% 


20 '* 


30 '* TYPING 


- 1999 


х by Leonard Hyre 
"х 00 Вх 403 Cambridge MD 21613 


iue 


E 1-391-228-0964. 
"ж For TANDY MS-DOS Machines 
1 ააა ამოეისXXXXXXXXXXXXXXXXXXXXXXMXXXXXXX 


XXX SET UP HOUSEKEEPING AND TITLE SCREEN XXX 


DEFINT A-Z 


DIM A$(36),B$(36),C$(18),D$(12) 


' XXX THE TITLE SCREEN XXX 


SCREEN 3,0:КЕҮ OFF:COLOR 13,0 


LOCATE 2,1:PRINT CHR$(291);STRING$(18,205) ; CHR$(187) 


in such a long program, send me $7 and 
a note requesting the program, and Ill 
send you a copy on disk. My address is 
L. Hyre, P.O. Box 403, Cambridge, 
MD 21613. If you encounter problems 
with the program, feel free to call me at 
(301) 228-0064 after 5: p.m. 


FOR X-3 TO 8:LOCATE X,1:PRINT CHR$(186):LOCATE Х,20:РВІМТ CHR$(186):NEXT 
PRINT CHR$(299);STRING$(18,2905) ; CHR$(188) 


COLOR 14 


LOCATE 5,5:PRINT"TYPING..1009";:COLOR 11 


LOCATE 14,5:PRINT"By" 


Ø NM$-"Leonard Hyre":P=1:FOR LT=5 TO 18:LOCATE 16,LT:PRINT MID$(NM$,P,1):P=P+1 
:PLAY"O1V15L64T125CP64P64":NEXT LT 


240 FOR DL-1 TO 1599 :NEXT 


















Twelve programs for one low price, work 
together to give the TRS-80 Model 100 unique 
disk file handling abilities. Access disk files 
from menu, just like a RAM file. Commands 
you were tediously typing become simple 
function key selections. And that's just part of 
the power of the DISK-BUDDY PAK. It does 
things you can't: 


* Create "'superfiles" the length of the disk, 
over 170,000 bytes! 


* Print out, or display on either screen, or 
copy to disk or other device, a disk data file 
of any length, WITHOUT USING ANY 
ADDITIONAL RAM! 


• Furthermore, transfer records сап be “fil- 
tered”, an example: 


An address file on disk can contain more 
than 1300 entries. You can move to 
RAM, or screen, or printer, etc., those 
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Civilize the DISK/VIDEO INTERFACE • MAKE SAVAGE THE MODEL 100 
With DISK-BUDDY software for your РУЛ, only function keys need touch your disk files! 


[em ασ рак (9) а 
DE ΜΟΝ] 





λα, LOAD COPY RUN NAME KILL сажын 


records which contain “California” and 
"Tennis" or whatever. Four logical 
modes of search are available. 





йе» 


* Also: Features to run, load, save, sort, kill, 
measure, append, and name, disk files and 
RAM files, and much more. 


PCM Magazine (March, '85) said: “. . . an 
excellent buy”. . . “manual is extremely 
well written" ... “will substantially 
increase the speed and ease of operation of 
the M-100 with the D/VI." 

That was the idea in the first place. ” 


TO ORDER THE DISK-BUDDY PAK 
(disk and manual): Send name, address, 
and check or money order for $39.95 plus 
$2.00 postage and handling to the address 
below. (For COD’s call: 212-243-2129) 


BuddySystems 


220 West 24th Street 
New York, NY 10011 





ЖЕК duc > ND D nn 
ELECTRONICS 


TRS-80 Model 2000 by Tandy’ 


MS-DOS Based 


Computer System 





256K М002000 W/MONO MONITOR 1319.00 
256K MOD2000 W/COLOR MONITOR 1629.00 
256 MOD: 1200. HD 2 ОК, გაიბა ero nis kas 1499.00 
128K MOD 1000 W/MONO 1 DR 

128K MOD 1000 W/COLOR 2 DR. 

256K MOD 1000 W/HARD DISK 

24K MOD 100 PORT 

24K MOD 200 PORT 

64K MOD 4D 2 DR 

512K MOD 6000 2DR. 

512K MOD 6000 w/15MEG HD 

15 MEG HARD DISK 

35 MEG HARD DISK 

DMP 105 PRINTER 

DMP 2200 PRINTER 

DMP 130 PRINTER 

DMP 430 PRINTER 

DMP 2100P PRINTER 

CGP 220 COLOR PRINTER 

DWP 510 PRINTER 

TRACTOR DWP 210 

TRACTOR DWP Ι/510 

TRACTOR FEED DMP2100P 

PARALLEL PRINTER SWITCH 









































PARALLEL PRINTER CABLE 
DISK VIDEO INTERFACE 


100% RS COMPONENTS NO FOREIGN DRIVES OR MEMORY FULL WARRANTY 
ALL RS SOFTWARE 20% OFF CATALOG PRICE 
CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 


(817) 825-4027 


NOCONA ELECTRONICS . Box 593 е NOCONA, TX 76255 





250. СО5ОВ 1850 

260 SCREEN 0,0:КЕУ OFF:WIDTH 80: COLOR 14,0:CLS 

270 GOSUB 1419 

289 LOCATE 13,1;:COLOR 15:PRINT STRINGS (89; "*") 

290 GOSUB 1800 

399" 

319 "XXX MENU DISPLAY XXX 

3200 

330 LOCATE 1,36,1,6,7:COLOR 14:PRINT"The MENU- 

349 LOCATE 2,36:PRINT"^^^^^^^*^ ^w 

352 LOCATE 4,30:PRINT"1» Beginner Exercises":LOCATE 5,30:;PRINT"2» Advanced Excer 
cises";LOCATE/6,39:PRINT"3» Word Practice":LOCATE 7,39; PRINT"4» Full Phrases and 
Sentences" :ТОСАТЕ. 8,30:PRINT"5» Instructions/Background 

360 LOCATE/10,30:PRINT"Enter NUMBER of Choice?'; 

370 CHS-INKEYS:IF.O0H$9"" THEN 379 

389 IF VAL(CH$)«1 OR VAL(CH$)»25 THEN 379 

390 GOSUB 1800 

A99 ON VAL(CH$) 6010 449,449, 490,690, 870 

ALG 

4290 'XXX THIS ROUTINE CALLS: SUB SHARED BY SELECTIONS 1 AND 2 
490! 

449. FOR E-1 ΤῸ 36:GOSUB 1110:NEXT 

450 GOTO: 290 

460" 

470 ΝΑ ROUTINE FOR SELECTION 3 XXX 

იზი ' 


490 COLOR 13:LOCATE l,1;PRINT"WORD РВАСТТСЕ....":10САТЕ 1,6ძ7:00L0L 4:6CIMIM'2'8L 


COCO-UTIL 
(“Тһе Connecting μπι 


_ %29.95 


! Coto: VიI) is 9 valuable utility program that allows you to ATH ДД | 
Color Computer disc 610516 your MS-DOS machine. You may 2150 (гай; 
fer MS-DOS ñiles to a Color eiit disc. CoCo: Util will save у 


countless hours of retyping): га great new utility: 


PRINTERS 


New Star Gemini SG-10 Model printer. 
120 cps w/true descenders, proportional 


Seir" 
spacing. New model for 1985. E С - 


- Our Great Price, Only $249.95 


64K Upgrades Set of 9 chips Great Bargain == 


S. un Only $14.95 
Ж PC-XTII 


PC until you check our systems and prices. 
Starting at $865. 


Ош ШЕННЕН Hi-Res Color т 
graphic. Adventures, . .Ca- 
‘lixto Island; Black Sanctum, 
Shenanigans, Sea’ Search, 
“Trekboer/are now available 
for MS-DOS; ή 
"10 challenge and HH 
entertain yous) 


| DAE CASE: 


i Attractive, heavy duty, smoked acrylic case. 
{ Holds апа protects up to 75 5%” discs with 


six moveable, indexed dividers. 
SUPER BARGAIN ONLY $9.95 
storage box along with ten discs for only $21.95. 


10 5%” discs in attractive styrene box— Only $12.95 


SHIPPING: All orders under $100 please add $2 regular, $5 air. All orders over $100 please add 3% regular, 8% air. California residents please add 6% sales tax. Orders outside 
the continental U.S., check with us for shipping amount; please remit U.S. funds. Software authors—contact us for exciting program marketing details. We accept MasterCard 


and VISA. Distributed in Canada by Kelly Software 


MI 


PCM 
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FREE—Send for Our Latest Product Flyer! 


D) Mark Data Products 


24001 ALICIA PKWY., NO. 207 MISSION VIEJO, CA 92691 (714) 768-1551 






















+ PHRASES AND. SENTENCES XX 


(ІШІ T pease and SENTENCE ACCURACY. -COLOR 15: LOCATE 
%270-0:00108 14. ИИИ ij 


ο... 


(8000) 15; PRINT თრ. 


„ა, ы program. 18. ΜΗ Бо! give. you a number of ba 
u; started: ion: the мау to becoming а capable сурізелт | 
is) en. იიი. ! ή, ης η, Тһе ЛЕТТІ should come: 


gemi 
>. 
Huge і 
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111990 COLOR. 13: LOCATE 3,1:PRINT"There ; ате веуега1 features that should μή noted a by 
ს. the new user mnisi i 
"uo 1999. COLOR 2:PRINT" | 1> On Screen ΜΗ ΗΝ For: ТРОНЕ " ШЕНИН 
| UABID PRINT" А. Home η Ате Highlighted In ";:COLOR 12,8: PRINT'RED. "n 10001 
раан 
ШІ1020 PRINT" 1 B. Caps Loi Key Is Shown ‘ON? Ав Reminder." | | 
αρ PRINTS UU 2> At Any Prompt You Мау Type '?' To Return To Main TOP 
111040 PRINT" 3» There Is No Formal Lesson Plan, Work at ТӨНЕ own pace. 
(19859 COLOR 2:LOCATE 11;1: PRINT"PRESS ANY KEY წვე. iluy ! 
11060: AK$=INKEY$: TF AKG" THEN 196g. Hi 


11070 GOTO 299. 


(01989 ' 

“ 1090 'XXX BODY OF ROUTINE FOR SELECTIONS. l AND 2 coe 

(20199 fi "i | НИНИН 
' 1116 TI-0: COLOR. 3:LOCATE 1,1: IF წ VAL(GH9)-I THEN. PRINT" BEGINNERS EXERCISES. (TEL 
ΠΙΕΙ КОП AD ANCES EXERCISES. | 


111329. LOCATE. 1. 60: COLOR 15:PRINT"'?' at Prompt = MENU. ": ¿COLOR 12:PRINT STRINGS (89. 


HEY AL P D de 


12113. LOCATE: 4, 1:0010L l14:PRINT"HERE IS YOUR EXERCISE. | ШШ! 

1140. LOCATE 16, 23:00L0L 19:PRINT"Type Each Exercise MM II-III. 4 Times." 

1111150 IF VAL(OH$)-1 THEN LOCATE 4,;26:PRINT CHR$ (&HDD.) +A$.(E)+CHRS (&HDE) 
111160 IF VAL(CH$)-2 THEN LOCATE 4 26: PRINT! იი), 


“1170 LOCATE 4,62: PRINT"TIMES PERFECT: ШИТТІ)! 


151189 LOCATE 5,17:PRINT"TYPE. USINPUT AN9 
H 1198 IL. ANS-CHRS (6113). ТНЕМ Goto. 290 ! 
' 12076 IF: ШШ НЫ AND ANS-AS (E) THEN fip. ELSE. IF VAL(CH$ )-2 AND к-к) ut 


НЕМ TISTI+1 


1111210 ТЕ ANS-AS(E) OR ANS-BS(E) THEN. LOCATE 4,77:PRINT TI: (PLAY"050^. | ; 
111220 ТЕ VAL(CH$)e1 AND ANS«»AS(E) THEN LOCATE 6,37:COLOR 12: PRINT"ERROR!": PLAY'O 


(1V1506":0L 01-1 TO 300:NEXT:LOCATE 6,37:PRINT (SPACES (6): COLOR 10 


1230 ТЕ VAL(CHS)-2 AND #M8<>85(წ) THEN LOCATE 6,37: COLOR 4: ο... BEEP: ко 
R 01-1 TO 299:NEXT: LOCATE 6,37:PRINT ΠΝ COLOR 6 | 


(1/3248. LOCATE 5,17: PRINT SPACES (29) ; 


1250 IF TIS 4 THEN 1180 
111126) IF TI-4 THEN GOSUB 1969 . 
11270 RETURN 


(0/1289. ! 
1171299. 'XXX GRADUATION “AWARD | XXX. 


1300. ^ 


2111310) 60508. 1960:GOSUB 1890 ЕНЕҢ? 
155/1320. LOCATE 5,39: COLOR. 4,6; PRINT"TYPING": LOCATE. 6,39: PRINT" SCHOOL COLOR iii [η] to. 
ΠΑΤΕ. 7,38:PRINT"GRADUATE" U j " 
(133) KEY OFF:SCREEN 3,1:COLOR 1,3: CLs: LOCATE 4 iti. 
ЗАЙ PRINT" CONGRATULATIONS!" ИН | 
1359 LOCATE 12;6:PRINT"You Have" 
15/1360 LOCATE 18,5: PRINT ibn 
1111370 GOTO 137g 
1380. 


1394. ione DRAW WPP: ON SCREEN ή DISPLAY. XXX. 


1 | | ИИИ 
(11410 LOCATE. 14, 1: COLOR 9, 7:ნ0L МІРЕ-10 TO 24: PRINT STRINGS Cag," T NEXT: LOGATE Н 
BETA ЕНІНЕН ji 

05501429 тген (2919: #25 0865(187): K35-CHRS (293) KA - CHRS (186) : ντος (296) 
1439. К65-СНВ5(200): K7$=CHR$ (188) ; K8$=CHRS$ (295) : Коток (186) ; 

11840! катны ШЫН), K11$-CHR$(185): K129-CHR$(292) | 


1450 PRINT " 2) "SKIS; 


(M. TOR. ne То 3; PRINT K8$;K8$; #85; IN NEXT RP: PRINT κος, K8$; каз, . 
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$; 

1470 FOR RP-1 TO 3:PRINT К85;К85;К85;К35;:МЕХТ RP:PRINT K8$;K8$;K8$;K2$;" Te 
$; 

1489 FOR RP-1 TO 3:PRINT K8$;K8$;K8$;K3$;:NEXT RP:PRINT K8$;K8$;K8$;K2$;" dy 
1490 PRINT" " 

1500 PRINT " n 

1510 PRINT K9$;"F 1";K9$; "F QOS puqi KOS TR IC EOS MIROS აივი Ste OS Вот 
ΚΟ ი PASS hp 85 Обу" ":Қ96;"Е 9":K9$;"F10";K9$;"Fl1";K9$;"F12";K9$ 

1520 PRINT " ".Κ105:: ; 
1530 PRINT K8$;K8$;K8$;K5$;K8$;K8$;K8$;K5$;K8$;K8$;K8$;K5$;K8$;K89;K8$;K5$;K8$;K 
8$;K8$;K5$;K8$;K89;K8$;K5$;K89;K8$;K8$;K59;K8$;K8$9;K8$;K5$;K89;K8$;K8$;K5$;K8$;K 
8$;K8$; K5$; K8$;K8$;K8$; 855; K8$;K8$;K8$;K5$;K8$;K89;K89;K5$;K8$;K89$;K89;K11$ 

1549 PRINT " 

1550 PRINT K9$;"esc"; K9$;" 1 "SK9$;" 2 ":K95-." 3 ';K9$;" A4 ".K9$." 5 ";.K9$;" 6 " 
;K9$;" τα ;K9$; " 8 n". ;K9$; "94 Кобе 0 " "Коб u We ;K9$; И 5 ;K9$; "bak": ;K9$ 

1560 PRINT " ";К10$; 

1570 PRINT K8$;K8$;K8$;K12$;K3$;K8$;K89;K12$;K39;K8$;K89;K129;K3$;K89;K89;K129;K 
3$;K8$;K8$;K12$;K3$;K8$;K8$;K12$;K3$;K8$;K8$;K12$;K3$;K8$;K8$;K129;K39;K89;K89;K 
12$:K3$ ;K8$;K8$;K12$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ; K8$ ; K8$ ; K12$ ; K3$ ; K8$ ; 
K8$;K12$;K2$ 

1580 PRINT " Фа 

1599 PRINT K9$;"TAB " .K9$:" Q ";K99;" W ";К99;" E ";К9$;" R ";K9$;" T ";K98;" Y 
"e :M9§; " 1) " ;K9$;" T "n ;K9$;" 0 We “KOS h P " ;K9$; " [ " ;K9$;" ] " ;K9$;" " ;K9$ 

1600 PRINT " ">К106; 

1610 PRINT K8$;K8$;K8$;K8$;K12$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ;K8$ ; K8$ ;K12$ ;K3$ ; K8$ ;K8$ ;K1 
2$:K3$;K8$;K8$;K12$ ;K3$;K8$ ;K8$ ;K12$ ;K3$ ; K8$ ;K8$ ; K12$ ;K3$ ; K8$ ; K8$ ; K12$ ;K3$ ; K8$;K 
8$;K12$;K3$;K8$ ;K8$ ;K12$ ;K3$ ; K8$ ; K8$ ;K12$ ;K3$ ;K8$ ; K8$ ;K12$ ; K3$ ; K8$ ; K8$ ;K7$;" " 
;KA$ 

1620 PRINT " "κου 

1630 PRINT აგინო КӨӨЧҮ Ac" КОБ S: MER OS Ur DY EROS p yo КОСЕ w. ROS. 1 დ 
995" J " უილ: ი K " .. T " ;K9$; " ; Шы. ЕШШ ' ";К9$;"епсег "ROS 

1649 PRINT" σ 

1650 PRINT K19$;K8$;K8$; K8$; K3$;K8$;K12$;K8$;K89;K3$;K12$;K8$;K8$;K3$;K12$;K8$;K 
8$;K3$;K12$;K8$;K8$;K3$9;K12$;K8$;K8$;K3$;K12$;K8$;K8$;K3$;K12$;K8$;K89;K3$;K12$; 
K8$;K8$;K3$;K12$;K8$;K89;K3$;K12$;K8$;K89;K3$;K12$;K8$;K8$;K3$;K12$;K8$;K8$;K8$; 
K3$;K8$;K8$; 

1660 PRINT K11$ 

1670 PRINT" "s 

1680 PRINT K4$;"c";:COLOR 12:PRINT CHR$(219);:COLOR Q:PRINT"p";KA4$;"SHFT";KA4$;" 
7, " ;K4$;" x " ;К4$; " ë " ;K4$;" V " :К46; " B KAS N MASS M SS ОТЫ - n RAS 
.CUKáS;t / ";K&9;"SHFT";K4$;"<-";K4$ 

1690 PRINT" " 

1700 PRINT K6$;K8$;K8$; Vas: K12$;K8$;K8$;K8$;K8$;K12$;K8$;K8$;K8$;K12$;K8$;K8$;K8 
$;K12$;K8$;K8$;K89;K12$;K8$;K8$;K8$;K129;K8$;K8$;K8$;K12$;K8$;K8$;K89;K12$;K8$;K 
8$;K8$;K12$;K8$;K8$;K8$;K125$; 

1710 PRINT K8$;K8$;K8$;K12$;K8$;K8$;K8$;K129;K8$;K89;K8$;K8$;K12$;K8$;K8$;K7$; 
1720 LTS$-"ASDF":P-1:COLOR 12 

1730 FOR LT-21 TO 33 STEP 4:LOCATE 21,LT:PRINT MIDS(LT$,P,1):P=P+1:NEXT LT 

1740 LTS$-"JKL:":P-1:COLOR 12 

1750 FOR LT=45 TO 57 STEP 4:LOCATE 21,LT:PRINT MIDS(LTS,P,1):P=P+1:NEXT LT 

1760 RETURN 

1779 ' 

1780 "ххх WIPE THE TOP HALF OF THE SCREEN CLEAN XXX 

1790 

1800 COLOR 14,9:FOR WIPE-1 TO 12:LOCATE WIPE,1:PRINT 5ΡΑΟΕΦ (80) ; :NEXT 

1810 RETURN 

1829 ' 

1830 'XXX DATA FOR EXERCISES READ IN FROM HERE XXX 
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184g ' 
1850 FOR Х-1 TO 36:READ A$(X):NEXT:FOR Х-1 TO 36:READ BS(X):NEXT:FOR X-1 TO 18:R 
EAD CS(X):NEXT:FOR X= 1 TO 12:READ D$(X):NEXT 
1866 DATA SFAD,FADS,KJL; ,J;LK,GHTU, UGHT , WEVN, VEWQ, INOP , PINO, ZXTR, BRNY , CLOS , SEKP , 
TYUI , REOP ,MVWH, DALK , VBNC, ZXCV , DEKI , AIAI , SUEA , QWOI , KSDJ , FDSA , JKLO , QWTR , OICN , NOQZ , 
HG;A,SLKD,YTOW,QOEI,ERLM,PSTR | 
1879 DATA A1S2,D3F5,TAY5, 7K86, POQW, D3LG,J5K1, 9932 ,0012 , PCBA , CRA5 , USAQ , 2021, MO3D, 
1709 , DR13, PR3V, ZPR6 , NHU8 , HÜDX , XYP3 , Q1CE , NL97, 512, 936, X995, MOTS , 93716073, ΕΦ, 
DX34 , NL9Ø , HNLZ , ZN37 , CDE3 , LKN8 
1889 DATA DOWNTOWN, EVERYDAY , ANTICIPATE, MERIDIAN, MAXIMUM, IMITATE, ZESTFUL, UNDERSTA 
ND , OVERCOME 
1890 DATA MEANINGFUL, ΧΥΙΟΡΗΟΝΕ, SCHOOLING , PHOTOGRAPH , EXONERATE , INTERFACE, COMPUTER 
,GREATEST,MAGAZINE .. 
1900 DATA NOW IS THE TIME FOR ALL GOOD MEN,EVERY GOOD BOY WILL HAVE HIS DAY, THER 
E IS NOTHING STOPPING ME NOW,ROSES ARE RED-VIOLETS ARE VIOLET,MANY A GOOD MAN HA 
S GONE ASTRAY,I LOVE TO TYPE WITH MY OWN TANDY,THE SLY FOX WILL GET THE CHICKEN 
1910 DATA COMPUTERS ARE NOT ACTUALLY SMART,HE LIKES TO WRITE HIS OWN STORIES, OST 
RICHES ARE VERY STRANGE BIRDS, PLUTO AND CHARON ARE FAR DISTANT,DANCING AND SINGI 
МС CELEBRATIONS . 
1920 RETURN 
193g ' 
1940 'XXX MAKE EXTREMELY STRANGE NOISES AS REQUIRED XXX 
1950 ' 
1969 PLAY" T1ØØV15L1603CO2P64L16GL32GP32AL16P320": FOR DL=1 TO 350: NEXT : PLAY"L16BP 
82036». 
1970 RETURN 
1980 END ` 


DON’T MISS 


THELATESTADVANCE 
IN MODEL 100/TANDY 200 


SOFTWARE 


X-TEL by the creators of 
TELECCMMUTER™ 
Wi Use TEXT while online іп TELCOM: Download letters 


and upload a reply in one terminal session 
I] Exchange .CO, .BA and .DO files with other computers, 


Ыз 





1000 


1200 
2000 


6000 


PROFESSIONAL 
ACCOUNTING 
SOFTWARE 


Payroll General Ledger 
Payroll History Accounts Receivable 
Accounts Payable Inventory - 

Check Recon. Multi Whse. 
Mailing List 


bulletin boards, and information utilities 

li Standard XMODEM error-checking protocol 

W List and Kill Files online іп TELCOM 

lll Compatible with Telecommuter and other desktop 
communications software supporting XMODEM 


Specify Radio Shack Model 100 or Tandy 200 computer 
Price: $50 on MS-DOS diskette or cassette 


MasterCard and Visa accepted. 
Please call or write for further information. 


SÜ SIMPLE 


Sigea Systems, Inc. 
19 Pelham Road 
Weston, MA 02193 
(617) 647-1099 
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YES!! Now you can get the EXACT same software to run on 
ANY of the Tandy MS-DOS Systems as well as the XENIX 
Multi-user Systems!!! References from Coast to Coast!!! 


YES!! Payroll and General Ledger can accept FOREIGN 
INPUT from such sources as a DATA BASE or 
SPREADSHEET APPLICATION!!! 


YES!! Onsite Installation, Training, as wellas Custom Program- 
ming and Modification services are available!!! 


YES!! SSI Software IS COMPATIBLE with most Non-Tandy 
MS-DOS Systems 


YES!! FREE Demos are available on ALL systems!!! 
Systems Support, Inc. 


P.O. Box 205 
V/SA Barre, Vermont 05641 
802-479-0160 


Store and Dealership Inquiries Welcomed 





MS-DOS. XENIX Trademarks of Microsoft Corp 


ШІ Feature 


A home improvement tool for your 
Tandy A = 


Ву Leonard Нуге 

























us great flexibility іп creating useful and 
attractive programs. І have made use of 
BASIC's SCREEN 6 by using а CLERR 
s» |, (32268) statement to reserve the 
additional memory needed to make 
utilization of this graphics mode possi- 
ble. By using SCREEN 6, we will be able 
to use 80-character text and high- 
resolution graphics statements on the 
same screen. This gives us the ability to 
draw graphics representations of the 
types of projects undertaken, making 
measurements, etc., easier to under- 
stand. 

The LINE and PRINT commands are 
used often to draw the walls, floorplans, 
3-D concrete pours and other graphics 
representations. These are simple to use 
and provide an easy way to dress up the 
screens for the various routines. Also, 
for those of you not familiar with the 
any variations of the powerful PRINT 
USING, you may find the printer option 
outines interesting to read over. This 
command allows us to to present attrac- 


hy is it that everybody seems 
' to have a neighbor whose 
favorite statement goes some- 


d Siar or 1-2-3 for this guy — that 
wou Bind him into future shock. This 
program, The Handi 1000 might then be 

al ег. Не or she will be able {о 
rasp the conveniences offered 
Handi 1000 as they apply to his 
day life. And of course, you also 
b benefit by having a handy set d 


13 . . 
jer of home improvement jobs 
ws the user to make useful cost 





version of Microsoft BASIC and offers 


1000 





tive printout formats and still keep all 
of our command generic; the advantage 
being a program that does not need to 
be modified by the user. 





asic screen n ОГ for ihe νο. 
ainting is shared as is (һе format 
for carpeting and tiling. Wallpapering 
and concrete pouring each get separate 
graphics treatments. In each case, the 
user is prompted for the information 
needed to complete the job estimate. 
Following the input of needed informa- 
tion, the program offers a hardcopy 
option. 

I realize the listing is a long one, but 
I believe you will be pleased with the 
results. The Handi 1000 can really be a 
usefulprogram to have in your software 
collection. If the thought of typing it all 
in overwhelms you, just send me $8 to 
cover the cost of the disk and postage, 
your name and address and I'll be happy 
to send you a copy on disk. O 


November 1985 PCM 27 


Тһе Hsting: 


28 


! eseyeyeseye vestes KKK KEK yes EEK ye vede de dede eyed ye dede ΧΑΑ 
ж The...HANDI 1000 ж 
by * 
ж Leonard Нуге ж 
'X (C) 1985 ж 
'XXXXXXXXXMXMXXXMXXXXXXXXXXXXXXXXXXXXXX%XXXXX%X%X% 
! 


"80 COLUMN TEXT AND HI-RES GRAPHICS USING SCREEN 6 


' 


"XXX SET UP SPACE FOR SCREEN 6 XXX 
CLEAR ,,,(32768!) 

KEY OFF:SCREEN 6,1:COLOR 14,0:С1,5 
PALETTE 2,10 


t 


'XXX SHOW THE MENU НЕВЕ XXX 
CLS:COLOR 14,9:GOSUB 1849:PRINT STRING$(80,"*"):LOCATE 3,29:PRINT"The 
D I - 1000":10САТЕ 5,1:PRINT STRING$(80, "*") 
299 FOR DL-1 TO 699:NEXT:LOCATE 8,36:PRINT"The MENU" 
LOCATE 11,34:PRINT"1> PANELING" 
319 LOCATE 12,34:PRINT"2> PAINTING" 
320 LOCATE 13,34:PRINT"3> WALLPAPER" 
330 LOCATE 14,34:PRINT"4> CARPETING" 
34) LOCATE 15,34:PRINT"5> CONCRETE" 
350 LOCATE 16,34:PRINT"6> TILES" 
360 LINE(250,59) - (400,145) ,1,B:LINE(259, 59) - (230,4@) , 1: LINE- (239,135) ,1:LINE-(25 
9,145) ,1:LINE(239,49) - (389,49) , 1T: LINE- (499, 50) ,1:PAINT(389,45),1,1 
370 LINE(239,139) - (59,139) ,2: LINE- (199,169) , 2: LINE- (580,169) ,2: LINE- (529,139) ,2: 
LINE- (499,139) ,2: LINE(199, 162) - (589,178) ,2,B:PAINT(579,175) ,2,2 
380 LOCATE 22,27:PRINT" HANDI 1999....by Leonard Hyre ";:LOCATE 25,1:PRINT" САР 
S KEY ON! ";:LINE(2,199)-(125,199),2,B 
399 LINE(294,166) -(459,177),9,B 
400 PLAY"OlC":LOCATE 18,38:PRINT "YOUR CHOICE?" 
410 ANS-INKEYS 
420 IF AN$-""THEN 410 ELSE ІЛМЕ(2,190)-(125,199),Й,ВҒ 
430 IF АМ$="1"ТНЕМ S1$-"PANELING" 
449 IF ANS="2"THEN S1$-"PAINTING" 
45g ' 
460 'XXX USE INSTR COMMAND TO GOTO THE PROPER SUBROUTINE XXX 
479 ' 
IST 
480 ON INSTR("123456",AN$)GOTO 530,530,1060,1360,1890,1360 
490 GOTO 419 
59g ' 
519 ' *** PANELING AND PAINTING SETUP *** 
529 ' 
539 COLOR ,7:CLS:LINE(389,89) - (609,139) , 1, B: LINE(449, 199) - (479,128) , 1, B: LINE(52 
5,199) -(575,118),1,B:PAINT(382,82),2,1: PAINT(530, 110) ,4, 1: PAINT(A442,102) ,4,1 
549 XH$-"HEIGHT":FOR LT-11 TO 17:LOCATE LT,45:PRINT MID$(XH$,LT-19,1);:NEXT LT 
5590 XH$="<- W ID T H ->":FOR LT-54 TO 69:LOCATE 19,LT:PRINT MID$(XH$,LT-53,1);: 
NEXT LT 
569 -LOCATE 12,56:PRINT"DOOR":LOCATE 12,67:PRINT"WINDOW":LOCATE 1,1 
579 00508 189g:PRINT:PRINT STRING$(89,"*"):LOCATE 3,1:PRINT"The MEA SURE M 
E N T S--";:LOCATE 4,1:PRINT STRINGS(89,"*");: 
580 LOCATE 3,49:PRINT 519 
599 LOCATE 5,2:PRINT"HT OF WALL(FT/IN.)":INPUT" FT. ":HAS:GOSUB 189@:INPUT" IN" 
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/(/;HB$:G0SUB. 1899 . б) ИИ ЙН ΠΤΙ 
609 PRINT" WIDTH А AET/IN)": LINE INPUT" PT?"; TUUM LINE INPUT" IN?" ‘ng: '60508 · asp. 
//8:INPUT" NO.OF WALLS THIS SIZE";AZ:GOSUB. 1899:PRINT" WIDTH B (FT/IN)":LINE INBU | 


ΜΗ 069: ІЛМЕ INPUT" 'IM2"; Was: 60808 1800: ο m ОЕ WALLS ҮНӨ SIZE"; Sanit GO. 


SUB 1829 
1610 INPUT” NO.OF REGULAR WINDOWS":WN:GOSUB. 180) | 
620 INPUT" NO.OF PICTURE WINDOWS";WP:GOSUB 1800: 99-4? 
630 INPUT" NO.OF.DOORS";DR:GOSUB 180 
649 ZZ-NAL(HAS) 1 24VAL(HBS) 
650. ZY=VALCWES)*12+VAL(WI$), ННН 
660 ZX-NAL(WGS)*12*VAL(WJ$) i j | 
670 WA-WN*1152; სსა ЕШШ DA-DR*198p: RE-MAAWPADA | 
689 60508 1840 
690 GB-(ZZ*ZY) *AZ: GC- (ZZ*ZX) АХ 
700 GA- (GB GC) RE 
710 NF-INT(GA/144) :NI-GA- (NE*144) . 
120 IL ANS-"i"THEN. 730 ELSE IF ANS="2"THEN 829 ELSE IF ANS" 3 THEN. 1060. 
730 PRINT STRINGS$(8U;" ");:PRINT" WHAT ROOM ARE WE WORKING WITH? j; ' 


7460 LINE INPUT RMS: TF, RIGHT$(RM$, ҮЙ ТЕТЕ ЕРНІ MN Qo d UTI 60608 1 


750 NP-INT(NF/32)41 '. 

769 PRINT" PANEL CALCULATIONS: 5; 

1779 PRINT" TO DO THE ";:PRINT RM$;" YOU WILL NEED APPROXIMATLEY. нА «Puit А TOTAL 
OF"; PRINT USING #H#.#" INP: PRINT" SHEETS OF PANEL." 

780 PRINT" PRINT THIS (Y/N)": 

799 IQS-INKEYS:IF LQ$-""THEN 790 

899 IF LQ$-"Y" OR LO$-"y* THEN 60808 2590. 

810 RUN 280 ДЕНЕҢ 

820 LOCATE 19,1:PRINT STRINGS (80; " ну: ІРЕІМТ" PAINTING CALCULATIONS: ^; 

830 PRINT" WHAT ROOM ARE WE WORKING WITH? ": 

840 LINE INPUT RM$:IF RIGHTS (RM$,4)«»"ROOM" THEN. RMS-RMS4". ROOM" :GOSUB ` 1899. 
850 PRINT" COST OF PAINT/GALLON?S";:LINE INPUT 0G$:GOSUB 1800 ^ 


869 LOCATE 21,49:PRINT" HOW MANY COATS WILL YOU APPLY? "; LINE, INPUT Nos: со x 


SUB 1800 

870 PRINT" HOW MANY SQ.FT/GAL. DOES MFG.RECOMEND?2"::LINE INPUT ή 60508 1800. 
880 LOCATE 23,2:PRINT"WILL YOU DO წმი). 60508 T 

890 ASeINKEYS:IE A$-""THEN. 899. j 

(900 IF AS) «»"Y" THEN 930 

910 NFe((ZY*ZX) /144)-4NF 

920 FOR DL= 1 TO 800 NEXT | | 

11930 FOR WIPEZ20 TO 24:LOCATE WIPE,1:PRINT ΜΗ (ЕЙ, NEXT WIPE 

949 LOCATE 20,1:PRINT" PAINTING CALCULATIONS |" 


959 PRINT" TO PAINT THE ".RM$;:PRINT" YOU WILL NEED "; წს НЕДИ μμ. 


$)*1):;PRINT USING"###.#"IGN:IPRINT" GALLONS.” 
960 PRINT" THE APPROXIMATE COST WILL BE κ, 
972 CG=VAL(CG$) : CP=GN*CG 

980 PRINT: USING"Sss ЖЕ" GP. 

1990 PRINT." PRINT THIS сүле": 

1000 OGS-INKEYS:IF OGS-""THEN 10000000000 
1919 IF 005-7” OR OGSe"y"THEN GOSUB 1 
11020 RUN 280 

1030 ' 

72040 “Жж WALLPAPERING HERE XXX 

10503 


1969 COLOR 9,7:CLS:PRINT STRINGS (89, 202): LOCATE. 2,1: PRINT"WALLPAPER ο... | 


/"ULOCATE 3,1:PRINT STRING$(89,292). 
1979. LINE(3909,119)- (618,185) 9; B Hi 
1980 PPRS-STRINGS (28, CHRS(1)) : FOR. PAPER-16 TO 23: LOCATE PAPER, 4p: PRINT PPRS; INEX | 
T PAPER. 

1090 LINE(359, 139) - (499,183) ,2 ‚ВЕ: LINE(489, 130):(550,165), ΤῊ BF: LINE (505 , 139) - LAB. 
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dU 127), p: ΓΙΝΕ. (505, 165), g: LINE(525, 139) - ШШЩ 


33)12 ig: PAINT(530,132),2,0: CIRCLE(399,155),3 


1100 BES- "HEIGHT": FOR LT-17 "mo 22: ΠΤΙ 
LOCATE 15,41: PRINT'««-- hd 


"for Wallpapering" і Hi HERE 
111110 LOCATE) 5; ἜΝ TNPUT"WHAT ROOM. ARE, WE ή 


OOM" THEN RMSORMG +" ROOM" : GOSUB. bold fill 


EIE D PL 


1130 PRINT"NOTE:. (WE. WILL. BE USING таш 


НӨ: 50. ЕТ FOR PATTERN MATCH. 

ΛΑΡΙ 

“1159, 

111160 1 

“1170. 3 

Hn 1180! ΤῊ ΝΑΙ (WAS) &NUAVAL(VBS) «SB | НИНИН 
baat INPUT TRETORN ӨР, ΠΑΝΙ ΠῚ INPUTN 


11210 ЕО-ТЫТ(АР)+1 | 


1111220 INPUT" COST. BER х ROLL half 

0501239 FOR XN-18 წ 7, LOGATE. 
ШІ1240 LOCATE 18,17 | T 
“1250 PRINT"TO. WALLPAPER. THE. ШІСІ 
(211260 PRINT" YOU NEED ";RO;" ROLLS" 
“ 1270 PRINT: PRINT"! YOUR. COST. ESTA 
(1/1289. PRINT USING" SHH, Mats CR*RO ІШІП 
112290 PRINT" PRINT THIS? დეი" 7 
(1 11200 ή ТЕ bos 1399 


j 11520 RUN HP 


111. 


πας 

18369 COLOR. 15, d ets: PRINT. ‘STRINGS (80. жату; ТЕ 
/"BLSE ТЕ ANS="6" THEN ο ΠΠ Noo Же 
ТШ LOCATE: 2, 32: hatin ШЕ ИПИ 


|n LOCATE 19, un PRINT. #2. 0, 
ІШТЕ 14,55: PRINT" Sample real Plan") 
1111430 LOCATE 6,2: 


(00) 9" ROOM" THEN | priae ROOM" | 


111 MEASURING: FOR TILES: 
1329. IV. გაგა 4” THEN PRINTS USE ames з 


MAIN AREA wi uM: GOSUB. / μή 





1449 IF ANS="4" THEN PRINT! MEASURIN FOR ЖЕР 








(13479 PRINT" ADD- ON. Areas: cra) созин 18 
01480 ALS-INKEYS:IF А19-""ТНЕМ 1480; 


p ή LOCATE. lid id ‘PRINT ი. ТОСАТЕ 9 


| PEOR: тісі TO; Vd: NEXT: LOCATE 9. 
| 3519 IF AlS«S"Y"THEN 19579 | 


(1111520 LOCATE, 9, 1: PRINT. SPACES (78): LOCATE. Την ji 
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'.. HH RHET 
111153) A2S-INKEYS: IF AOL" THEN (ШАШ 
1549 LOCATE 9,1:PRINT SPACES(20);:LOCATE 9,1. 

1550 IF A2$-"Y" THEN COLOR 4: COLOR &:PRINT" ADD. ALL REMATNING ADD- ONS. TOGETHER!" 
COLOR 0 | 
/1569 ТЕ A28 Y THEN. JNPUT" WIDTH " 5 BW:GOSUB 189g:LOCATE 19,49: INPUT" LENGTH ":B | 


1 L:00808 189g. 


211570 ТЕ ANS-" 4" THEN: JOS-"FOOT" ΠΗ 
111580 ТЕ ANS="6"THEN JOS-"INCH" | 0/0) 
(111590 ΕΟΚ WIPE-9 TO 11:10САТЕ МІРЕ,1: PRINT SPACES (78); : NEXT: LOCATE 9, Yi 
(11609 PRINT" NOW:'CUT-OUTS' (MEASURE TO NEAREST ";J0$;")" 
1619 PRINT" ARE THERE ANY? ( Y/N )":G0SUB ' 1820 
11620 A3S-INKEYS:IF A3$-""THEN 1629 | 
11630 IF A3S$CO"Y"THEN 1699 | | | | 
“ 1640 IF A3S-"Y"THEN PRINT" WIDTH "::INPUT CW: GOSUB 1899: LOCATE 11, id: INPUT" LENG 
(ТН “;CL:GOSUB 1899:LOCATE 9,1: PRINT SPACES (236) LOCATE 9,1 
111650 PRINT” ANY MORE 'CUT-QUTS'?" 
11660 AGS=INKEYS:1F AGS=""THEN 1669 
1679 FOR WIPE-9 TO 13:LOCATE WIPE,l:PRINT. SPACES (78): NEXT. | 
111168) IF А45-"ҮЗТНЕМ LOCATE 9,1; INPUT" WIDTH "OR LOCATE 9 „ტი: INPUT" LENGTH "WX: 
U FOR DESL. TO 60g:NEXT | | | | 
11111690 IF AN$="6" THEN 2319 | 
111700 LOCATE 9, 1: PRINT STRINGS (89, n i") /LOGATE 19,1: PRINT spaces (ap); LOCATE 10, 1; 
| PRINT” COST PER SQ. YARD";:INPUT.YC:GOSUB 1899. 
1710 PRINT" CARPETING CALCULATION” 


111729: PRINT" YOU WILL NEED APPROX."; 


11:123. CO (WM*TM) + (AW¥AL)+(BW*BL) - (CW*CL) - (თოხის: იაია (66/9) 
1111780) PRINT. YD:i" SQ YDS! ОҒ ‘CARPET. ™ Н 
//1759 PRINT" YOUR COST WILL BE ABOUT. ": }CSHYCXYD:PRINT USING"S4, #M# 48" LCS: PRIN 


ОЛИ" FOR THEM ;RM$ 


1769 PRINT" PRINT. THIS? сүле» 
1779 065-ІМКЕҮ5:ТЕ OG$=""THEN 1779 [ИН 
П178@ IL 00§5="V" OR бейт y" THEN] 60508 2839 


(1/1799 RUN 280 


1800 ο... | 
Ш1810 RETURN 5 | 
1829 PLAY"O3V15L6ATISQEDC" 


ІІ 1830 RETURN 


(11840 РІАҰ"03У151Л667 | 

' 1850 RETURN НЕ 

' 1860 5) i 

(101879. tex CONCRETE POURING HERE XXX. 0 
188g." | 

1/1899. COLOR 9,3:0LS ^. | H 

1900 PRINT STRINGS (8G, "жау; LOCATE 2/30! PRINT! CONCRETE VOL; MEASURE” | 

'' 1910 LOCATE 3,1:PRINT STRINGS CBO. mayi | 

|) 1920 PRINT"FOR.CONCRETE MEASUREMENT Mi CAN FIRST OBTAIN. THE HEIGHT,WIDTH AND DE 
РТН. OF THE MAJOR PART OF THE. PROJECT. THEN WE САМ 'ADD- ON' THE OTHER AREAS AS R 


“ EQUIRED OR TAKE-OFF. 


| m LINE(359,1290)- (699, 129), 3; LINE: (559, 14g), ΓΗ LINE: (300, 140), 9: LINE. (350,120), 


| ІШ LINE- (350,150) , 3: LINE- (608,15) ,3: LINE- (609, 129), 3: | LINE (609, 159) - (559,179) , 
S: LINE- (300,170) 3: LINE- (399,149) ,3: LINE (399, 110): (350, 159), 3: LINE (559,179) - (559 


ER 1405,3 





1950 PAINT(599, 160); 2; 3: PAINT (556, 162), 279 
171969 "LOCATE 15:48: PRINT" Sample Concrete Pour" 
1970 W5SeCHRS(27)4* LENGTH. მია ს ა. ου... 
1980 LOCATE 23,48:PRINT.W5$ 
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Factory 
Authorized 


DEALER 


User Installable! Over 100 Channels! 
Uncut Movies! Specials! Sports! 
News! Weather! Music Videos! 


U.L. 
Approved 





Now you can enjoy it all! 24-hour non-stop entertain- 
ment that you simply can't get from local TV, cable, and 
even video tape! You'll see the hottest stars, recent un- 
cut and uninterrupted movies, the ultimate in sports 
coverage—and the best part is, there are no monthly 
fees to pay. You'll see exciting family-oriented pro- 


Entire 
System 


$1699 


а Totally Automatic System With 101/2-Ft. 
Dish, Receiver and Wireless Remote Control 


m Comes With All Accessories Needed for 
Complete Do-it-Yourself Installation 


m Descrambler Ready 


Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 


grams, plus music videos, FM broadcasts and movies 
with provision for stereo, and 24-hour news coverage 
on both TV and radio. It all adds up to out-of-this-world 
TV viewing at a down-to-earth price. Come in today and 
discover how easy it is to enjoy satellite programming! 
Includes complete installation manual. 


(817) 825-4027 


NOCONA ELECTRONICS • 


UPS Shipping 


Box593 * Nocona, TX 76255 


А RADIO 5НАСК DEALER 





1990 FOR LT-15 TO 22:10САТЕ LT,37:PRINT MID$(W6$,LT-14,1);:NEXT LT 

2000 LINE(629,155)-(579,175) ,4:LOCATE 21,73:PRINT"WIDTH" 

2010 LOCATE 9,1 

2020 PRINT" ENTER ALL MEASUREMENTS AS 'FEET'AND THEN REMAINING AS 'INCHES'." 
2030 LOCATE 19,1:INPUT" WIDTH FT.";WF:LOCATE 19,39:INPUT"WIDTH + IN.";WI 

2040 LOCATE 11,1:INPUT" LENGTH FT.";LF:LOCATE 11,39:INPUT"LENTH + IN.";LI 

2050 LOCATE 12,1:INPUT" HEIGHT(OR DEPTH) FT.";HF:LOCATE 12,30:INPUT"HEIGHT + IN. 
"-HI 

2060 FOR WIPE-19 TO 13:LOCATE WIPE,1:PRINT SPACES(89):NEXT 

2070 MSQ-((WF*12)4WI)*((LF*12)4LI)*((HF*12)4HI) 

2080 LOCATE 19,1:1NPUT" ANY ADD-ON AREAS (Y/N)";AO$ 

2090 IF А09-"Ү"ТНЕМ 223) ELSE 2119 

2100 FOR МІРЕ-10 TO 13:LOCATE WIPE,1:PRINT 5РАСЕ9(80):МЕХТ 

2110 FOR WIPE=19 TO 13:LOCATE WIPE,1:PRINT 5РАСЕ9(80):МЕХТ 

2120 LOCATE 19,1:INPUT" ANY TAKE-OFF AREA'S (Y/N)";TU$ 

2130 IF TUS="Y"THEN 2279 ELSE 2140 

2140 VCU=MSQ/46656! 

2150 FOR DL-1 TO 39g:NEXT:FOR МІРЕ-10 TO 13:LOCATE WIPE,1:PRINT SPACES(89):NEXT: 
LOCATE 10,1 

2160 PRINT " TO COMPLETE PROJECT YOU WILL USE APPROXIMATLEY";:PRINT USING"###.#" 
; VCU; :PRINT" CU.YDS OF CONCRETE." 

2170 PRINT" PRINT THIS? «Y/N»" 

2180 AS-INKEYS:IF A$-""THEN 2180 

2190 IF AS="Y"OR A$-"y" THEN GOSUB 2950 

2220 RUN 280 

2230 LOCATE 11,1:INPUT" WIDTH FT.";AW:LOCATE 11,3@:INPUT" WIDTH IN.";AK:LOCATE 1 
2,1:INPUT" LENGTH FT.";AL:LOCATE 12,3@:INPUT" LENGTH IN.";AI:LOCATE 13,1:INPUT" 
HEIGHT FT.";AH:LOCATE 13,30:INPUT" HEIGHT IN.";AJ 

2240 ACU-((AW*12)-AK)*((AL*12) XAI)* ( (AH*12)-4AJ) 

2250 MSQ=MSQ+ACU 

2260 FOR DL-1 TO 599:NEXT:GOTO 2110 

2270 LOCATE 11,1:INPUT" WIDTH FT.";TW:LOCATE 11,32:INPUT" WIDTH IN.";TX:LOCATE 1 
2,1:1NPUT" LENGTH FT.";TL:LOCATE 12,30:INPUT" LENGTH IN.";TY:LOCATE 13,1:INPUT" 
HEIGHT FT.";TH:LOCATE 13,30:ІМР/Т" HEIGHT IN.";TZ 

2289 TCU-((TW*12)4TX)* ( (TL*12) 4 TY) * ( (THX12) 4 TZ) 

2299 MSQ-MSQ-TCU 

2300 GOTO 2149 

2310 FOR WIPE=7 TO 13:LOCATE WIPE,1:PRINT SPACE$(8@) ;:NEXT: LOCATE 7,1:PRINT" TIL 
E CALCULATIONS: " 

2329 PRINT" ARE YOU USING 9 OR 12 INCH TILES (9 or 12)"; 

2330 INPUT TLS 

2349 IF TL$-"9"OR TL$-"12"THEN 2350 ELSE 2330 

2350 TL-VAL(TL$) 

2360 GOSUB 2430:WA4-INT(CW/TL) : LA-INT(CL/TL) : W5-INT(CX/TL) : Lb-INT(WX/TL) 

2370 TN=(W1*L1):IF Al$-"Y" THEN TN=TN+(W2*L2):IF А29-"Ү"ТНЕМ TN-TN-(W3*L3) 

2380 IF A3$-"Y" THEN TN=TN-(W4*L4):IF А4%-"Ү"ТНЕМ TN=TN-(W5*L5) 

2399 PRINT" YOU WILL NEED ";INT(TN)+1;" TILES 

2400 PRINT" PRINT THIS? (Y/N)" 

2419 AS=INKEY$:IF A$=""THEN 2419 

2420 IF A$-"Y" OR A$-"y" THEN 3030 ELSE RUN 289 

2830 IF WM/TL<>INT(WM/TL)THEN W1=INT(WM/TL)+1 ELSE Wl-WM/TL 

2449 IF LM/TL<>INT(LM/TL)THEN 11-ІМТ(ІМ/ТІ,)%1 ELSE L1-WM/TL 

2450 IF AW/TL<>INT(AW/TL)THEN W2=INT(AW/TL)+1 ELSE W2=AW/TL 

2460 IF AL/TL<>INT(AL/TL)THEN L2-INT(AL/TL)41 ELSE L2=AL/TL 

2470 IF BW/TL<>INT(BW/TL)THEN W3-INT(BW/TL)+1 ELSE W3=BW/TL 

2480 IF BL/TL<>INT(BL/TL)THEN L3=INT(BL/TL)+1 ELSE L3=BL/TL 

2490 RETURN 


2500 ' 
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2510 '*** PRINTOUT HEADING *** 

2520 ' 

2539 LPRINT STRING$(5,13):LPRINT TAB(5)STRING$(70,"*"):LPRINT ΤΑΒ(5)5ΤΕΙΝΟΦ(70," 
*"):LPRINT :LPRINT TAB(32)"* HANDI 1000 *":LPRINT :LPRINT TAB(33)"JOB ESTIMATE" 
2540 LPRINT :FOR ZV=1 TO 2:LPRINT TAB(5)STRINGS(79,"*") : NEXT 

2550 LPRINT :LPRINT :RETURN 

2560 ' 

2579 'XXX PANELING PRINTOUT ESTIMATE XXX 

2580 ' 

2590 GOSUB 2530 

2600 LPRINT TAB(29)"PANELING CALCULATIONS: "+RM$:LPRINT 

2610 GOSUB 3090 

2626 LPRINT ΤΑΒ(20) "ΤΟΤΑΙ, SHEETS NEEDED: ";:LPRINT USING "###.#";NP 

2630 RETURN 

2640 ' 

2659 'XXX PAINTING ESTIMATE PRINTOUT XXX 

2660 ' 

2670 GOSUB 2539:LPRINT TAB(2@)"PAINTING CALCULATIONS:  "RM$:LPRINT 

2680 GOSUB 3090 

2690 LPRINT ТАВ(20)"СО5Т OF PAINT: "+"$"+CG$+" PER GALLON":LPRINT TAB(29)"APPLYI 

NG "4NC$4" COATS":IF A$="Y" THEN COS-"CEILING INCLUDED" ELSE CO$-"CEILING NOT IN 

CLUDED" 

2700 LPRINT TAB(2@)CO$:LPRINT TAB(2@)"SPREAD RATE: "FG$" SQ. FT PE GALLON":LPRIN 

T :LPRINT TAB(29)"YOU WILL NEED ";:LPRINT USING"###.#";GN;:LPRINT " GALLONS":LPR 

INT TAB(29)"APPROXIMATE COST: ";:LPRINT USING "$####.##";CP ; 

2710 RETURN 

2720 ' 

2730 '*** WALPAPER JOB ESTIMATE PRINTOUT XXX 

2740 ' 

2759 GOSUB 2539:LPRINT TAB(29)"WALLPAPER CALCULATION: "+RM$:LPRINT :IF SS$-"Y" T 

HEN S1$-"SINGLE SIZE ROLL" ELSE IF SS$="N" THEN S1$-"DOUBLE SIZE ROLLS" 

2760 LPRINT TAB(29)S1$:LPRINT TAB(27)"WALL HEIGHT:"HW" FEET":LPRINT TAB(29)NW"WA 

LLS "VAL(WAS)" FEET LONG":LPRINT TAB(29)SB"WALLS "VAL(WB$)" FEET -LONG" 

2779 LPRINT TAB(29)NZ "WINDOWS":LPRINT TAB(29)ND "DOORS":LPRINT TAB(29)"COST PER 
ROLL: ";:LPRINT USING"$###.##";CR:LPRINT 

2789 LPRINT TAB(29)"YOU WILL NEED ";RO;" ROLLS":LPRINT TAB(29)"YOUR COST: ";:LPR 

INT USING" S###.##";CR*RO:LPRINT STRINGS (5,13) 

2790 RETURN 

289g ' 

2819 'XXX CARPETING ESTIMATE PRINTOUT XXX 

2829 ' 

2830 GOSUB 2539:LPRINT ТАВ(20)"САЕРЕТІМС CALCULATION: "+RM$ 

2840 LPRINT :LPRINT TAB(29)"MAIN AREA "WM" BY "IM" FEET" 

2850 IF Al$<>"Y" THEN 2879 

2860 LPRINT ТАВ(20)"ОМЕ ADD-ON "AW" BY "AL" FEET":IF A2$-"Y" THEN LPRINT ТАВ(20) 
"OTHER ADD-ONS "BW" BY "BL" FEET" 

2870 IF А3%<>"Ү" THEN 2890 

2880 LPRINT ТАВ(20)"ОМЕ CUTOUT "CW" BY "CL" FEET":IF A4$-"Y" THEN LPRINT ТАВ(20) 
"OTHER CUTOUTS "CX" BY "WX" FEET" 

2890 LPRINT TAB(2@)"COST PER SQ/YD";:LPRINT USING" S###. ##";YC 

2900 LPRINT :LPRINT TAB(29)"YOU WILL NEED"YD" SQUARE YARDS":LPRINT TAB(29)"TOTAL 
COST: ";:LPRINT USING"$#,###.##";CS:LPRINT STRING$(5,13) 

2919 RETURN 

2929 ' 

2939 ' XXX CONCRETE JOB ESTIMATE PRINTOUT XXX 

2949 ' 

2950 GOSUB 2539:LPRINT ТАВ(20)"СОМСВЕТЕ ESTIMATE":LPRINT :LPRINT ТАВ(20) "*****MA 
IN AREA*****":LPRINT :LPRINT TAB(29)"WIDTH"WF" FEET"WI" INCHES":LPRINT TAB(2@)"L 
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Do yourself and your PCM friends a favor! Protect and 
showcase a valuable resource — each and every issue of 
PCM — with high-quality, brown-vinyl binders embossed 
with the magazine’s name in gold lettering. 


Spend more time enjoying your Tandy and less on 
frustrating searches for misplaced issues! 


These handsome binders hold a full 12 issues of PCM and 
cost just $7.50, plus $2.50 for shipping and handling. 


SAVE! Buy four or more back issues of PCM with this order 


DISTINCTIVE AN D DURABLE and save $1 per issue. Use back issue form on Page 87, 
PCM B | М D E RS Order your PCM binders and back issues today! 


YES. Please send те- _ 56{5 of binders at $7.50 each (plus $2.50 shipping and handling for each binder ordered). 
If your order is to be sent via U.S. Mail to a post office box or to another country, please add $2. Kentucky residents 
add 5 percent sales tax. 

| also want to take advantage of the special savings of $1 off the single issue cover price for back issues with the 
purchase of a binder. (An order form from a recent issue indicating the back issues you wish to receive should accompany 
this order.) 


Name 





Address 


ТІСТЕНЕ ИЕ ПЕННЕРИНЧЕ LECTIA EESEL HEETE EEE i ИНИНЕН ICIN) 
My check in the amount of... is enclosed. (In order to hold down costs, we do not bill.) 
Charge to: О VISA. 0 MasterCard D American Express 


Account ИТ Те ТИННИН ИНЕНЕЕНННЕНИНИШАНҤННПИНИНДЕНШИННЕНЕНЕНИННЕЕЕНИИНЕИН И 2 у, Бы ИС 


Signature iritis titinen rrn ee Snr pipi 
Mail to: PCM Binders, The Falsoft Building, P.O. Box 385, Prospect, KY 40059. 
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нш BASIC Bytes 


A Brief Survey of Basic 
Spreadsheet Functions 


ematical formulas called functions. These are built- 

in operations that can quickly perform a task that 
would otherwise take much longer or which might not be 
able to be performed at all. In many instances, functions 
also save memory space since they remove the need to type 
in long formulas. 

A widely used statistical function is @SUM(x...y). It 
simply adds up all the numbers in a row, column or block. 
The form shown is from VisiCalc and Lotus 1-2-3. For the 
discussion below, I will use Lotus syntax. Your spreadsheet 
may use a somewhat different form, but will work much 
the same way. Simpler spreadsheets тау not contain all the 
functions discussed, but quite a few are now common to 
most spreadsheets. 

Тһе “at” symbol (8) serves to distinguish the function 
: from a normal label entry. The characters within the 
parentheses form the argument of the function. An 
argument is information that a function needs in order to 
perform its task. In eSUM( x... y) the argument is the cell 
or cells that are to be added together. 


A spreadsheet contains a variety of predefined math- 


BSUM(C6...C25) Compute the sum of the values in 


cells C6 to C25. 


It does not matter in 1-2-3 whether the values have been 
directly entered or have been calculated by some other 
formula or function. /-2-3 does natural recalculation. This 
means that it determines which cells need to be evaluated 
to produce values for functions or formulas in other cells 
to use, It then calculates these first. 

Most other spreadsheets are not so kind. They will use 
a calculated value from another cell in a formula or 
function, but do not make sure it is properly calculated first. 
As long as you know this can happen, you can handle the 





(Richard White has a long background with microcompu- 
ters and specializes in BASIC programming. He has authored 
numerous programs and articles. His work has appeared in 
PCM' sister publication, THE RAINBOW.) 
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matter yourself by doing a number of manual recalculations 
to assure that all formulas and functions are using properly 
calculated values. 

Many functions perform on a range of values. In some 
spreadsheets, some functions can handle a block as a range, 
while the same function in other spreadsheets cannot. 1-2- 
3 handles blocks as I have shown for those functions that 
accept them. Experiment with your spreadsheet to see what 
it can do. 


Figure 1: Sample Spreadsheet and Formulas. 
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The more I dug into ways to specify the argument for 
@SUM( ) and other statistical functions, the more hidden 
power I found. In Figure 1, I show a simple example with ` 
numbers in cells АІ... ВЗ and the results of some 
calculations. The formula dump is shown below. In Cell A5 





is a simple summation of the row Αἱ... A3. In Cell 85, 
the summation is taken over the block Al... B3. 

In cells A7 and A9, we see that the functions can accept 
a series of ranges and single cells in the argument. This can 
open all sorts of possibilities in that it starts to free you from 
having to think about how you are going to organize your 
spreadsheet in order to simply perform one of these 
functions at the end. You still need to organize the 
spreadsheet logically so you and others can easily under- 
stand it and its results when it's done. 


SSUM(BIL.....R3,B1l...B3,R7) 


Note that each range or cell citation is separated by a 
comma. In addition to being somewhat faster, 95LIMC ) and 
the other range functions are more adaptable to changes 
made in the spreadsheet. Figure 2 shows Column A added 
using a straight cell addition formula. Column B uses 
@SUM( ). 


Figure 2: Spreadsheet Using Cell Addition and @SUM( ) 
Before Row is Deleted. 
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Figure 3: Spreadsheet Using Cell Addition and &SUM( ) 
After Row 2 is Deleted. 
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When Row 2 is deleted the spreadsheet tries to adjust the 
formulas. In the case of 8SUM( ) it can, since the missing 
cell was within the defined range, which is simply shortened 
by changing B3 to B2. The addition formula always has 
three cell entries. The spreadsheet was able to adjust A3 to 
A2, but it cannot make the old A2 entry go away. ERR is 
entered in its place and will be displayed when the sheet is 
recalculated. 

Of course a range function is not totally forgiving. If you 
delete the start or end cell of the range, ERR will be 
substituted. Let's now see what happens when we go the 
other way and insert a row and add data to it. 


Figure 4: Spreadsheet Using Cell Addition and &SUM( ) 
After a Row of Data is Added. 
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24К Expansion RAM SK Expansion RAM 


For the Model 200 
$1 25. each $240. for two 


КҮТІП ` 
N MG ἍΝ 
ж И 


For the Model 100 & 8201 
$27. each $75. package of 3 


These Modules are easily user installable 


and they feature: 
е | ow Power CMOS Static RAM 


е 30 Day Satisfaction Full Refund Policy 


* High Quality Sockets 


M/C, VISA, Check or Money Order 


Shipping-Add $1.50 UPS Ground 
or $4.00 2nd Day Air. 
CA Residents add 6% Sales Tax 





e Instructions Include 
Test Program Listing 
e One Year Warranty 


Cryptronics, Inc. 


11711 Coley River Circle, Suite 7 
Fountain Valley, CA 92708 
Phone: (714) 540-1174 
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The 
Accessible 
Computer 
Experts 


тту 


HARDWARE SPECIALS 


$ 39.95 
$ 49.95 
$ 79.95 


| ACCESSORIES 


| Volksmodem 1200 $299.95 
RS D.C. Modem IB $ 89.95 
Novation J-Cat Modem $129.95 
USR Password 300 $179.95 
Hayes SM 300 Modem $239.95 
USR Password 1200 $399.95 
USR Password 2400 $599.95 
CoCo Switcher $ 39.95 
Elephant Disks ssdd $ 18.95 
Mach II Joystick $ 39.95 
26-3030 05-9 (64k) $ 64.95 (disk) 
Basic-09 (req. 05-9) $ 87.95 (disk) 


Extended Basic w / bk 
64K (DEI) Memory Upg 
HJL Keyboard (D.E.F.2) 
26-3129 Coco Drive S 275.95 
26-1161 Coco Drive 1 S 179.95 
26-3127 64K Extended Coco2 $ CALL 
26-3124 Multi-Pac Interface $ 89.95 
NAP Video Monitor (Grn Amber)$ 109.95 
Video Monitor Adapters $ 34.95 
Botek Ser / Par Interface $ 69.95 
26-3802 Model 100 24K $ CALL Sa90-U9 Vt 
26-3816P 8K Upgrade Model 100 $ 55.95 C'' Compiler (0S-9) 9 87.95 (disk) 
FHLO-Pak(req. 05-9) $ 34.95 (disk) 
26-3860 Model 200 $ 849.95 Eite Word $ 59.95 (d&c) 
26-1276 DMP-105 Printer 80 сов 9 179.95 Elite Calc $ 59.95 (d&c) 
26-1278 DWP 220 Printer % 539.95 Color Term Plus $ 29.95 (cass) 
25-1000 Tandy 1000 2-drive $ 899.95 Deft Pascal $ 79.95 
DEI T1000 HD $1,699.95 26-3012 Deluxe Joystick $ 34.95 
25-1011 Memory plus board $ 269.95 





NEW! Dual Double Sides Drives including 
case, power supply & cable $375.95 


NEW! 26-3128 64K 


MSI SOFTWARE Direct Video CoCo2 $219.95 


MSI DISKUTIL NEW 
COLOR FINANCE П МЕМ 
MSI NAMEFILE 

MSI CALENDAR NEW 
MSI COLOR PAYROLL NEW 
COLOR FINANCE 4 








TRS-80 Trademark Tandy Corporation 
Prices subject to change without notice 
Write for our FREE newsletter 


DELKER 
ΒΕΠ 


Call for prices апа availability of 
your favorite software and 
' hardware, All advertised items 
æ Subject to availability. Prices do 
not include shipping and handling. All 
of the above units are covered by our 
120 day carry-in warranty 


DELKER ELECTRONICS, INC. 


J P.0. Box 897 408 C Nissan Blvd. 
Smyrna, TN 37167 


m 800-251-5008 MM 615-459-2636 
(Tennessee) 


E 800-545-2502 MM 615-254-0088 
(Tennessee) (Nashville) 


Visa, Mastercard and American Express 








38 PCM November 1985 


In the addition formula, the A3 reference was changed 
to A4. The result returned in Аб remains 6. ®SUM( ) 
includes the new row and its data in its calculation and puts 
115 into B6 rather than 15. In most instances, the reason 
you added columns or rows was to make room for a larger 
range of data, and you expect to have the added figures 
included in the calculation. When you use a range function 
and make sure that the new rows or columns are between 
the start and end cells, you are automatically taken care of. 


Figure 5: Preferred Way to Define a Range for 85//М( ). 
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Figure 5 shows а better way to define ranges for the 
@SUM( ) function. Be careful, since it is the wrong way to 
describe a range to other functions. I inserted a row at the 
beginning of the sheet and have shown column headings. 
I left the formula now in A7 alone to show how the sheet 
will adjust formulas. I changed the range of @SUM( ) to 
include both the cell containing the heading and the cell 
containing the dashed line indicating a summation. ВІ and 
B6 have math values of zero and will not affect the 
summation. If you add extra lines for data, you are most 
likely to add them below the heading or above the dashed 
line and will always have your new lines within the range. 

@CDUNT( ) is another range function. @COUNT( ) counts 
only those cells that have a mathamatical value including 
a zero. @COUNT( ) ignores all blank cells, but considers all 
cells containing labels as containing zero and counts them. 
Given this, the better way to describe a range to @SUM is 
the wrong way to describe the range for @COUNT( ) in 1- 
2-3, unless you really want to count cells containing labels. 
Irather doubt that you will. We can make the point stronger 
with @AVG( ) that works the same as @COUNT( ). You don't 
really want a header, valued as a zero, included in your 
average. @MAX( ) and &MIN( ) work the same way. 

Those with other spreadsheets, including VisiCalc, must 
check exactly how their particular sheet works. @COUNT( ), 
PAVERAGE( ), 9M8X( ) and &MIN( ) in DynaCalc оп my 
Color Computer are able to ignore labeled cells within a 
range where the same functions on /-2-3 cannot. And, many 
times, documentation with programs is either silent on the 
subject or whatever mention there is is buried in an 
avalanche of detail. The best way to know is to fire up your 
spreadsheet and do some testing. 

@COUNT( ) has one other feature (read maybe bug) that 
you should know about. eCOUNT (R1) will return a one even 
if Al is blank. Further, any ®COUNT( ) function whose 
argument contains a single cell reference will return at least 
a one. Assume that cells АІ. . . B2 are all empty. Following 
are a number of ®COUNT( ) functions and how they react. 


GCOUNT (81) = 1 
@COUNT(AL...A2) =0 
@COUNT(AL...A2,B1) = 1 





This apparently is not a bug since DynaCalc оп my Color 
Computer works in an identical fashion. However, I am 
hard pressed to tell you what value this “feature” has. 

One final /-2-3 “feature” is that @AVG( ) returns an ERR 
if the range consists entirely of blank cells. I am of mixed 
mind on this. If other cells in the spreadsheet depend on 
this average, it might be worthwhile to flag the lack of data. 
DynaCalc returns a zero, which may not be worth much, 
but which may not be as upsetting to the operator. 

For those who need to calculate statistics, many spread- 
sheets can calculate the variance, VAR(/ist) and standard 
deviation STD(/ist) for a set of data. I will presume that 
those who are familiar with these statistical functions and 
who need to use them will be able to figure out how to use 
them. If you are not familiar with them, you either don't 
need them or need far more training than I can give in the 
column. 

The financial functions built into a spreadsheet generally 
deal with the time value of money. Many larger businesses 
use the time value of money to select their investments. The 
idea is that there are always more ways to spend money than 
there is money to spend. There need to be ways to compare 
various investments and to choose the best ones from a 
current prospective. One of the problems is the cash flow 
each year that an investment may generate varies with time. 

Let's consider a fictional company that makes *Whatits" 
and “Thatits.” $400,000 is available for investment this year 
and the Whatits and Thatits division managers have been 
asked to submit plans for that amount of investment in one 
or the other of the divisions. The investment plans will 
include estimates of the annual savings and revenue each 
investment will produce. The company wants at least a 15 
percent discounted rate of return. We will see what that 
means later. 

Whatits and Thatits are two very different businesses. 
Whatits division has to buy some parts from the outside now 
and investment now would save growing amounts over the 
next few years, stabilizing five to six years out at $150,000 
annual savings after taxes. 

Thatits is booming and a $400,000 investment this year 


Figure 6: A Project Return Analysis Spreadsheet. 





will produce $200,000 after tax revenue next year. But, 
competition is coming and Thatits is sort of a trendy item. 
The company cannot count on being in the business seven 
or eight years from now. 

Anentrepreneur will typically make a gut feeling decision 
on the data. In this case neither decision will lead to 
bankruptcy. On a cash flow basis, one is better than the 
other and should maximize company profit and strength. 
1-2-3's ΒΝΡΝ{ ) is atool to make the choice. Figure 6 shows 
the spreadsheet. 


Project 1 and Project 2 represent the respective proposals 
of the Whatits and Thatits division managers. Each 
proposes to invest $400,000 this year. Project | returns 
much more cash to the company over 10 years, but much 
of the return comes in later years. Project 2 returns lots of 
cash in the early years and then peters out. A primary 
question is which project has the greatest net present value. 
Cells in row 21 contain a SNPV( ) function. The one in 821 
reads: 


BNPV(.15,BB...B12) 


Cells C21 and D21 have similar formulas adjusted for 
their column positions. One way to look at SNPV( ) is that 
the current value of money earned in the future is reduced 
by the compounded interest that amount of money would 
earn between then and now. If I put $1,000 in the bank, 
two years from now I have the $1,000 plus earned interest. 
If I invest $1,000 now, earn no interest over the next two 
years and the get back $1,100, I will probably have less 
money at that time than if I had put the money into the 
bank. The net present value of the money investment is less 
than that put into the bank to draw interest in the CD. 

So the first argument in @NPV( ) is the interest rate or 
the rate I expect or need to be returned on the capital I 
invest. Rate of return for short. It is entered as a decimal 
number though we talk about 15 percent interest. The next 
argument specifies the range over which 8SNPV( ) works. 

There is one “Бір watchout" when you use 8NPV( ). The 
first entry in the range must apply to the first interest period. 
Each succeeding entry must pertain to a succeeding period. 
The periods must be equal. For most applications, use an 
annual interest rate or rate of return, entered as a decimal 
number rather than a percentage, and have your periods be 
years. 

Now we can see differences between the two projects. 
Project 1 has a larger total return, but Project 2's net present 
value is better. A more sophisticated analysis would show 
that Project 2 would pay back its capital investment much 
sooner, making more money available earlier for other 
investments. And who can say that the Whatits business will 
really be as projected five years out. Certainly the projection 
of Thatits return over the next two years is on much firmer 
ground. 

On the basis of the spreadsheet, the company should 
invest in Thatits now while they address what to do about 
the Whatits business. There is some time to act there while 
there isn't in the Thatits business. 

One option is to invest the $400,000 three years from now 
when Whatits savings start to peak. The net present value 
of that approach is only $260,000, but the net present value 
of the investment three years out is also about $260,000. The 
company can afford to wait and still meet their investment 
objectives. [PCM] 
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Changes your Model 100 into a totally different 
computer with capability you never thought possible. 







or your money back within 30 days! 


LUCID® is here now. It is on a ROM car- 
tridge that snaps into the compartment on 
the back of your Model 100. It takes no 
memory to load and no memory for operat- 
ing overhead. That means you have the full 
29.6k bytes free to store your data. 

First, LUCID® is memory conserving. It 
will let you build a large spreadsheet —255 
row by 126 column capacity. You build huge 
spreadsheets in your Model 100's RAM that 
could consume 80 to 100K on a desktop 
computer. 

Secondly, LUCID® is fast. LUCID® is so 
rapid, a 36 column corporate financial 
statement took less than 4 seconds to 
calculate. 

Thirdly, LUCID® has features you won't 
find in most other spreadsheets. For ex- 
ample, when you type a label (text) it will 
cross column boundaries; in other words 
when you type a label or title it will appear 
as you уро it irrespective of column or 
width. LUCID® also allows you to set col- 
umn widths individually, and of course 
LUCID? has insert row and insert columns, 
as well as other standard features. LUCID® 
even lets your formulas refer to cells in 
other spreadsheet files. 

Further, LUCID? has what no other 
spreadsheet has: Cut, Copy, and Paste. It 
uses the same keys as Cut and Paste in 
TEXT, but here's the difference: it takes all 
the formulas with it when you paste and 
they all automatically recalculate with the 
entire sheet. 

And here is what is really amazing. You 
can copy or cut from one spreadsheet and 
paste into another spreadsheet or even a 
TEXT file. 

LUCID*supports all BASIC math func- 
tions as well as Log, sine, cosine, tangent, 
exponentiation and other sophisticated 
math functions. 

LUCID® has so many features that you 
will say "this is what | need in a spread- 
sheet'; such as automatic prompting of an 
incorrectly typed-in formula showing just 
where the mistake was made. 


” 


LUCID* has expanded “до to" functions 
that remember and produce a windowing 
capability. 

But perhaps most remarkable is that 
LUCID® is not only a spreadsheet but a 
program generator as well. First, LUCID* 
lets you protect all cells against entry or 
change, and then unprotect just the cells 
you want for someone else to use as 
input fields. 

LUCID® will not only process values, but 
text input as well so that the facts other than 
numbers can be responded to. LUCID® has 
the ability for you to refer in a formula to 
cells containing words. This feature com- 
bines with the capacity of doing “if then” 
statements that work by doing table look- 
ups against even massive X/Y charts of text 
or numerical information. You can produce 
a program that responds to inputs with no 
programming knowledge whatsoever. 

You can prepare a report section in your 
spreadsheet with instructions to your user 
for printout, and they can produce a person- 
alized printout that responds to their input. 
All your formulas and tables that did the 
calculations and provided the facts are in- 
visible to that user. LUCID® is useful for 
doctors for patient questionnaires, trouble- 
shooting technicians, purchase clerks, 
people doing job quotes, stores for custom- 
er workups, insurance agents and anybody 
who needs to process specific facts and 
numbers to produce a report based on 
those responses. 

LUCID® comes with a manual that ex- 
plains not only the characteristics of 
LUCID® but will train you how to use а 
spreadsheet even if you have never seen 
one before. You are shown how to do 
budgets, forecasts, breakeven analysis 
amortizations and many other types 
of personal and business reports and 
calculations. 

User friendly is such an over-used term in 
this industry, but a typical comment has 
been “| have never seen a spreadsheet that 
does so much, and yet LUCID® is so much 


on Snap-In" ROM 


™ Infoworld 


rated Lucid’s 
performance 
“excellent” 





PCSG says “Satisfaction Guaranteed 


p» 


easier and faster to use.’ 

LUCID? is a result of a most exhaustive 
developmental effort in which PCSG's 
objective was to develop a spreadsheet 
that was better than the state-of-the-art. We 
are so pleased because LUCID? provides 
for the Model 100 spreadsheet capability 
you cannot equal on a desktop computer. 

LUCID® is, in our opinion and that of 
those who have examined it, a break- 
through. We sell it on a 30 day trial. If you 
are not completely satisfied, return it within 
30 days for a full refund. Priced at $99, on 
snap-in ROM. MasterCard, Visa or COD. 


© PCSG 1984 
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ШІ Subroutine City 1000/1200/2000 


Access BIOS to scan the keyboard, 
control windows, and more — all from BASIC 


A Potpourri of 
BIOS Goodies 


scribed quite a few subroutines that 

allow GW-BASIC to access features in 
MS-DOS that are normally only acces- 
sible from the DOS command level or 
other languages. 

This month, I will conclude this mini- 
series on the MS-DOS. access subrou- 
tine by describing a few remaining 
subroutines that use MS-DOS's BIOS. 


Keyboard Subroutines 

Lines 21000 through 23000 of Pro- 
gram. 1 contain three subroutines that 
access MS-DOS's keyboard BIOS. 

The subroutine starting at Line 
21000, scans (һе keyboard somewhat 
like. BASIC's INKEY$ function. Unlike 
INKEYS, however, this routine waits for 
a key to be pressed. This means that the 
only way to exit this subroutine is to 
press a key (remember that!). In addi- 
tion, the most important feature of this 
subroutine is that it returns the scan 
code for the character pressed. The scan 
code is a unique 8-bit number for each 
ofthe characters and character sequenc- 
es on the keyboard. 

A list of keyboard scan codes can be 
found in Appendix D of the Model 2000 


(Bob Covington has been a computer 
programmer and consultant for the past 
six years, most recently focusing his 
attention оп both the Model 100 and 
the 2000. He is also a technical writer 
апа editor. Bob can Бе contacted at 
Р.О. Box 37007, St. Louis, MO 63141.) 


I: the last few months, I have de- 


MS-DOS Reference Manual. Scan 
codes are especially nice when you wish 
to make use of the SHIFT, ALT and CTRL 
in conjunction with the function keys 
allowing for 48 (40 on the Tandy 1200) 
individual codes from the function keys. 
In addition, scan codes also allow you 
to detect keys that are not converted to 
individual ASCII characters (like the 
SHIFT keys). This subroutine has no 
entry requirements but exits with the 
ASCII value of the key pressed in C and 
the scan code in SC. 

The subroutine at 22000 returns the 
current shift status of the keyboard. In 
most cases, this function's only practical 
use in GW-BASIC is for detecting the 
CAPS and NUM LOCK keys. On exit from 
this subroutine, 55 contains an eight-bit 
number describing the eight possible 
shift statuses, Table I describes each of 
these shift statuses along with their bit 
position. (To detect one of the. shift 
conditions, AND SS with 2 to the power 
of the bit to detect.) For example, to 
check the status of the CAPS lock key, 
the following operation could be per- 
formed: 


X-SS RND 2^6 


Then, if X is greater than zero, the bit 
is set. Otherwise, if X is equal to zero, 
the bit is reset and the selected shift is 
not set. 

Probably the most useful subroutine 
in this set of keyboard subroutines 


By Robert D. Covington 


starts at Line 23000. This subroutine 
flushes (clears) any characters that are 
stored in the keyboard's type-ahead 
buffer. Flushing the keyboard buffer is 
very useful for clearing out any extra 
characters that might have been typed 
on single key input entries (INKEY$ for 
example). 

If a question was asked that required 
a Y or N response, the user might end 
up typing YES or NO. If this happens, the 
ES or Dis stored in the type-ahead buffer 
and is released at the next input prompt. 
If an E or 0 is a valid entry at the next 
input prompt, it could select an option 
in à program that the user did not really 
want. To alleviate this problem, a 
5058 23000 (or the equivalent line 
number in your application program) 
could be inserted right before the se- 
cond input prompt to clear any charac- 
ters that might have been accidently 
entered, or characters from keyboard 
bounce. 


Display Subroutines 

While most of the features of the 
display BIOS are supported in GW- 
BASIC, one feature that is not supported 
is multidirectional and. windowed 
screen scrolling. 

In Program 1, the subroutines start- 
ing at 24000 and 25000, respectively, 
scroll the text inside a window on the 
screen up or down. A window is defined 
as an area on the screen with borders 
defined by four points (much in the 
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COLOR COMPUTERS 


26-3127 64K Extended Color Computer 2...$219.95 $175.00 
26-3134 16K Standard Color Computer 2 ... 119.95 99.00 
26-3129 Thinline Disk Drive O for Color Comp 349.95 290.00 
26-3018 Extended Basic Kit 36.00 
26-3030 OS-9 with Editor Assembler ....... 59.50 
26-3012 Deluxe Joystick 25.00 
26-1208 CCR-81 Recorder 50.00 
VIP Integrated шы 139.00 
МІР Writer 59.00 
VIP Calc E 59.00 
Telewriter Disk . . . 59.00 
Botek Interface 57.00 


TANDY 2000 


26-5103 Tandy 2000 Two Disk $1599.00 $1225.00 
26-5104 Tandy 2000 One Disk & 10 Meg HD 2499.00 1885.00 
26-5111 Monochrome Monitor . . . 199.95 165.00 
26-5112 Color Monitor 599.95 510.00 
26-5140 Hi Res Graphic Monochrome Board 299.95 255.00 
26-5141 Hi Rec Color Graphics Chips . . 124.95 105.00 
26-5160 Internal 128K Memory Board 179.00 150.00 
26-5300 Lotus 123 . 495.00 420.00 
26-5311 Microsoft Multiplan . 195.00 165.00 
26-5320 Framework .... ρα 69500 59000 
26-5352 dBase Ill (Data Base) . i 595.00 420.00 
26-5330 Multmate 205.00 


MODEL 200 COMPUTERS 


26-3860 24K Model 200 Portable Comp. ...$999.00 $725.00 
26-3866 24K RAM Mem. Exp. Chip for 200 .. 249.95 210.00 
26-3804 AC Adaptor . ў 5.00 
26-3805 Accoustic Coupler 34.00 
26-3816 8K RAM Memory Expansion Chip . . 95.00 
26-1409 Printer Cable . 12.70 
26-1410 Modem Cable 17.00 
26-3809 Briefcase ... 42.50 
26-3811 Soft Carrying Case for 100/200 . 34.00 
26-1183 Bar Code Reader... . 85.00 
26-3806 Disk Video Interface . . . 415.00 
26-3829 Multiplan ROM for 100 






LIST OUR 
PRICE 


39.95 
99.95 
499.00 
149.95 


26-1070 Model 4D 64K 2 Drive Computer 
26-1122 64K Memory Expansion 

26-1127 Model 4 Internal Drive 1 ........ 
26-1123 Model 3 to Model 4 Upgrade Kit . 
26-1084 Model 4P Modem Board - 
26-1085 Model АР Travel Case . y 
26-1134 Model 4 Hard Disk Kit for 15meg . 
26-1530 Multiplan Model 4. ; 
26-1595 Super Scripsit Model 4 >> 
26-1635 Profile 4 Model 4 

26-2216 CP/M Plus Моде! 4 

26-2231 Double Duty Utility ... 


MODEL 12 & 6000 COMPUTERS 


26-6021 Model 6000 512K 2 Drive Comp. . 4499.00 3125.00 
26-6022 Model 6000 512K 15Meg HD . . 5499.00 3795.00 
26-6014 Model 12 to 6000 Upgrade 1595.00 1325.00 
26-6015 Model 6000 512K Memory Board. 1095.00 905.00 
26-6019 Model 6000 256K Memory Kit . 199.95 185.00 
26-6017 Card Cage for Model 12 199.00 169.00 
26-6052 DT-100 Data Terminal .... ... 795.00 600.00 
26-4155 15 Meg Hard Drive Primary ..... 1995.00 1355.00 
26-4171 35 Meg Hard Drive Primary . 2995.00 2095.00 
26-4157 Installation Kit for Primary HD 349.00 265.00 


69.95 
399.95 
399.00 
149.00 

24.95 

79.95 
199.00 
199.95 
249.95 





All prices and offers may be changed or withdrawn without notice. Advertised 
prices are cash prices. e O.D. accepted ($10.00 charge per carton on C.O.D. 
Call for further C.O.D. information.) M.C., Visa, AX, add 2%. All non-defective 
items returned will be subject to 1096 restocking fee. Defective items require 
return merchandise authorization. Call for R.M.A. Number before returning. 
Delivery is subject to product availability. 
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DMP-105 Dot Matrix Printer ..... $ 199.00 $ 169.00 


RADIO SHACK PRINTERS 
26-1276 








26-1275 TRP-100 Portable Thermal Printer: 299.00 230.00 
26-1280 DMP-130 100 cps Tri. Mode Printer 349.00 285.00 
26-1268 CGP-220 Color Ink-Jet Printer... 699.00 595.00 
25-1257 DWP-220 Daisy Wheel......... 599.00 460.00 
26-1277 DMP-430 24 Wire Matrix Printer 899.00 1745.00 
26-1270 DWP-510 43 cps Daisy Wheel . 1495.00 1225.00 
26-1274 DMP-2100P 24 Dot Wire Matrix .. 1995.00 1650.00 
26-1279 DMP-2200 HiSpeed Matrix Printer 1695.00 1440.00 
26-1269 PT-64 Printer Controller ....... 249.95 210.00 
26-1498 ‘SW-302 Printer Switch ......... 119.95 100.00 
26-1477 Auto Sheet Feeder for DWP 510.. 499.95 420.00 





TANDY 1200 


25-3000 Tandy 1200 One Disk & 10 мез HD $1999.95 $1525.00 


25-3010 VM-3 Green Monitor . 219.95 185.00 
26-3212 CM-2 Color Monitor ......... 459.95 390.00 
25-3040 Monochrome Display Adapter 219.95 185.00 
25-3043 Graphics Display Adapter. . . 299.95 255.00 
25-3044 Graphics Master ..... ^ 695.95 540.00 
25-3061 Captain Multifunction Board BE 599.95 475.00 
25-3130 MSDOS/BASIC ........... ust, 89.95 76.50 
25-3170 Wordstar Professional . 395.95 335.00 
25-3160 Framework ............... 695.95 590.00 
25-3161 PFS File mite n Ө Pe ay 140.95 119.00 
25-3190 dBase lll ........ 695.95 590.00 























TANDY 1000 


25-1000 Model 1000 128K 1 Disk Drive ... $ 999.95 $ 705.00 


25-1001 Model 1000 256K 10Meg HD 1999.00 1495.00 
25-1005 Disk Drive Expansion 1000... 199.95 170.00 
25-1006 RS-232C Interface 1000/1200 . 99.95 85.00 
25-1007 Hard Disk Control Board ....... 299.95 255.00 
25-1011 Memory Plus Board ...... 919.95 | 255.00 
25-1013 Modem 1200 Option 1000/1200 . 299.95 230.00 
25-1025 10 Meg Hard Disk............. 699.95 559.00 
25-1501 MS-DOS Reference T-1000. . 34.95 29.00 
25-1502 BASIC Reference T-1000 ....... 34.95 29.00 
26-3211 VM2 Green Monitor ..... 149.95 125.00 
26-3212 CM? Color Мопйог........ 459.95 390.00 





EPSON/COMREX PRINTERS 


20001015 Homewriter 10 .......... $ 288.00 $ 230.00 


20001025 LX-80 Dot Matrix Printer ...... 299.00 250.00 
20001035 FX-85 Dot Matrix Printer . . 499.00 385.00 
20001040 JX-80 Color Dot Matrix Printer.. 699.00 485.00 
20001050 НІ-80 4 Pin Plotter........... 599.00 390.00 
20002010 RX-100 Dot Matrix Printer. ..... 499.00 400.00 
20002030 FX-185 Dot Matrix Printer...... 699.00 525.00 
20003010 LQ-1500 18 Pin Head with Intf.. 1495.00 1095.00 
20003510 CR-IIE Comrex Сот Riter ..... 499.00 295.00 
20001510 FX-80 Tractor Feed .... 39.95 34.00 
20004080 NLQ Parallel Intr ............ 209.95 175.00 


20001515 LX-80 Tractor Feed ...... 40.00 





For Technical Questions and Information on our complete line of 
computer accessories and current prices. 


CALL 1-517-625-4161 
FOR ORDERS ONLY CALL 1-800-248-3823 


Mon., Wed. & Fri. 9-9, Tues. & Thurs. 9-6, Sat. 9-3 


12H S. MAIN ST, PERRY, MICH. 48872 





same way as the LINE instruction uses 
four points to make a box in GW-BASIC). 
Windows are very convenient when you 
wish to divide the 80-by-25 character 
screen into smaller sections with inde- 
pendent text. 

With the subroutines at 24000 and 
25000, the upper left corner of the 
window is defined by UC (column posi- 
tion) and UR (row position.) Likewise, 
the lower right corner of the window is 
defined by BC (column) and BR (row). 
With all four of these coordinates, the 
position vector starts with zero (instead 
of one, as does the LOCRTE statement). 
For example, if you wished to describe 
the entire screen as a window, the 
following variable assignments would 
need to be made: 


UC=@: UR=@:BC=79 : BR=24 


In addition to the window coordinates, 
the subroutines at 24000 and 25000 
require that NS contain the number of 
lines to scroll, and AT the attribute to 
fill the blank line with. If NS contains 
a zero, the entire window will be erased. 

The subroutine at 26000, like the 
above subroutines, allows a window to 
be scrolled. This subroutine, however, 
is a bit more flexible in that it allows the 
screen to be scrolled in any of the four 
directions (up, down, left and right). On 
entry to this subroutine, UC, UR, BC, BR 
and NS are set up like the above two 
subroutines. In addition, DS contains a 
value from zero to three specifying the 
direction the window is to be scrolled 
(zero-up, one-down, two-left and three- 
right). 


Miscellaneous 
BIOS Subroutines 

Lines 27000-29010 of Program 1 
contain two subroutines that access a 
few of the more trivial BIOS functions. 

The subroutine at 27000 performs a 
“cold” reboot of the entire system. This 
function has the same effect as hitting 
CTRL-ALT-DELETE on the keyboard. 
This subroutine is very useful when a 
BASIC program has created a CONF IG- 
.5Ү5 ог AUTOEXEC.BAT file that needs 
to be installed or executed. For obvious 
reasons, this subroutine has no practical 
entry or exit parameters. 

The subroutine at 29000 loads MS 
with the total amount of RAM in K 
(1024 byte increments) that is currently 
installed in the system. This function is 
very useful when attempting to create a 
CONFIG.SYS file inside a BASIC pro- 
gram. By using this function, a BASIC 
program can determine how much 


space can be allocated for disk caches, 
RAM disk, communications buffers, 
etc. When using this function, be sure 
not to detect memory boundries by 
exact values. For example, to detect the 
presence of 512K in the system, do not 
check if MS is equal to 512, but check 
to see that it is greater than 500. This 
has to be done since this function 
returns a value that is slightly smaller 
than the actual RAM in the system 
(usually ІК to 2K less than the actual 
value). 

This concludes all of the routines that 
utilize the MS-DOS access subroutine. 
Even though I have described subrou- 
tines that allow access to most of MS- 
DOS's features, a few more trivial 
features have yet to be implemented in 
BASIC. Because of this, you might want 
to purchase Radio Shack's MS-DOS 
Programmer's Reference Manual (26- 
5403 for the Model 2000 or 25-1503 for 
the 1000/1200) and see if there аге any 
other functions in MS-DOS that might 
be usable by your application pro- 
grams. 


References: 
MS-DOS Programmer's Reference 
Manual, Tandy (26-5403) 
Table 1 
Shift Status Bit Configurations 


Bit Кеу/ Моде AND Value 
@ Right SHIFT 1 
ДІ Left SHIFT 2 
2 CTRL 4 
3 ALT 8 
4 Scroll mode 16 
5 NUM LOCK 32 
6 CAPS lock 64 
? INSERT mode 128 


Programmer's Reference Manual 
Correction 

The Model 2000 Programmer s Ref- 
erence Manual (26-5403) contains a few 
errors: 
€ On Page 33, the entry condition to 
“CONIO” should be: 

AH=@6H 

DL=@FFH for keyboard input 

Or 

DL-ASCII value of character to dis- 
play (0-254) 

9 On Page 207, the multidirectional 
scroll has an additional entry condition: 

RL-number of lines to scroll (0 to 
blank window) 

I have found a few more possible 
additions/corrections in the manual 
and I will forward them as soon as 
possible. 
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Educational Software 
that WORKS 
at PLAY 


An innovative and entertaining 

puzzle game designed with well 

known crossword techniques. 

е For TANDY Computers 

e 45 different color puzzles 

• Timing and Scoring 

e Additional puzzle diskettes 
available 

Call 


1-601-373-2508 
or send for information to 
ISTAR CORPORATION 
P.O. Box 567 
Brandon, MS 
39042 

© COPYRIGHT 1985 

ISTAR CORP 
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Тһе listing: 


1" XXX MSDOS Function Subroutines for BASIC 

2 ' *** By Robert D. Covington 

10 DIM B$,AX,BX,CX,BP,SI,DI,SW 

20 FOR X=1 TO 19%:READ A:BIOS$=BIOS$+CHR$ (A) : NEXT: X-FRE(BIOS$) : V=VARPTR(BIOS$) :B 
І05!-РЕЕК(У-1)-РЕЕК(У--2)%256 

25 CLS:PRINT"Program Installed...." 

999 END 

21000 ' XXX Get key from keyboard queue (wait if nescessary) 

21001" Entry: 
21002" 

21993 ' 

21994 ' 

21010 1-22:AX$-0:GOSUB 49999 : C=PEEK(VARPTR(AX%) ) : SC=PEEK(VARPTR(AX%)+1) : RETURN 


C - ASCII character from queue 
SC - Keyboard scan code 


22000 ' XXX Get shift status 
22001 Exit: 
22002 

22003 

22010 I=22:AX%=512:GOSUB 4099:SS-PEEK(VARPTR(AX$) ) : RETURN 
23000 ' XXX Flush keyboard queue 

23991 ' No entry or exit parameters 

23992 ' 

23010 I-22:AX$-768:GOTO 40000 

24000 ' XXX Scroll window up 

28001! Entry: 

24092 ' UC - Upper left column of window (Ø - 79) 
24093 ' UR - Upper left row of window (Ü - 24) 


SS - Shift status (see Table 1) 
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24094 ' BC - Lower right column of window (0 - 79) 

24005 ' BR - Lower right row of window (0 - 24) 

24006 ' NS - Number of lines to scroll (Ø - clear window) 

24007 ' AT - Attribute or color to put in blank line(s) (7 usually) 
249098 ' 

24010 АХ%-1536-М5:ВХ%-АТ%256 

24020 1-16:CX$-UR*256-UC:DX$-BR*256-BC:GOTO 40000 

25000 ' XXX Scroll window down 

25001 ' Entry: 

25002 ' UC - Upper left column of window (0 - 79) 

25993 ' UR - Upper left row of window (0 - 24) 

25994 ' BC Lower right column of window (0 - 79) 

25995 ' BR Lower right row of window (Ø - 24) 

25006 ' NS Number of lines to scroll (Ø - clear window) 

25007 ' AT - Attribute or color to put in blank line(s) (7 usually) 
25008 ' 

25010 AX$—17924NS:BX$-AT*256:GOTO 24020 

26000 ! XXX Universal scroll routine 

26001! Entry: 
26002 ' UC Upper left column of window (Ø - 79) 

26093 ' UR - Upper left row of window (0 - 24) 

26004 ' BC Lower right column of window (0 - 79) 

26005 ' BR Lower right row of window (0 - 24) 

26096 ' NS Number of lines to scroll (Ø - clear window) 

26007 ' DS Direction of scroll (Q-up, l-down, 2-left, 3-right) 
26008 ' 

26010 AX%=4698+NS : BX%=256+DS:GOTO 24020 

27000 ' XXX Reboot system 

27001" Мо entry ог exit conditions 

27002 
27010 
290002 
29001 
29002 
29003 


I=25:GOTO 40000 
29019 І-18:С050В 49099 :MS=AX% : RETURN 


XXX Get memory size 
Exit: 
MS - Memory size in number of k (1024 byte increments) 


31000 ' XXX Convert Integer to signed integer 
31001 Entry: 

31002 
31003 
31004 
31005 
31010 IF А!>32767 ТНЕМ А%-А!-65536! ELSE А%-А! 

31015 RETURN 

40000! XXX Call DOS function 

40001" I - Interrupt Number 

40002 ' АХФ, BX%, СХ%, DX%, ВР%, 51%, and DI% - Registers passed to and from DOS 
49093 ' SW% - Status word 


400204 
4001) MID$(BIOS$,48,1)-CHR$(I):CALL BIOS!(AX%,BX%,CX%,DX%,BP%,SI%,DI%,SW%):RETUR 
M 


А! - Integer (0-65535) 
Exit: 


А% - Signed Integer (-32768 - 32767) 


50000 ' Program:BIOS Length: 10 bytes 

50001 DATA 30,7,139,236,139,94,4.255,55,157,199294.6.. 139763, 139595, 8,139 55,159, 
945,12,139,23,139,95,14,139, 15, 139 19418,1392 7:139 94516:139, 31.039 110,19, 539,11. 
0,0,205,33,85,83,139,236,139,94,8,156, 143, 7, 139,94, 19.191.659. 139,04. 12 

59002 DATA 137,55,139,94.16,137,23,139.945 18.137415, 130795224 133], 7 91: 1359 119, 2 
0,137,94,0,139,110,14,91,137,94,0,202,16,0 ішегі 
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_ Tandy 1000 Hard Drives 
by Hard Drive Specialist 


Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou- 
sands of subsystems to satisfied Radio Shack/Tandy cus- 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat- 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re- 
quire a memory board with DMA such as the TanPak" 
multifunction card, or a Tandy Board, Part 725-1004. 


Ordering Information 

Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re- 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 


Megabytes for Mini-Bucks 









შედ Disk System Features: 


10 
20 
42 
10 
20 
42 


All sizes rated after formatting. 

One secondary drive may be added. 
Error checking and correcting controller. 
Software drivers included. 

Buffered seek drives for improved access time. 
Built in power up diagnostics. 

Plated media for long disk life. 

Gold connectors used throughout. 

1 year warranty. 

Boots directly from Hard Drive. 

Uses Tandy 1000 MS DOS. 


Megabyte Internal................ $ 549. 
Megabyte Internal................ $ 749. 
Megabyte Internal................ $1349. 
Megabyte External............... $ 699. 
Megabyte External............... $ 899. 
Megabyte External............... $1495. 


Hard Drive Specialist 
16208 Hickory Knoll 

Houston, Texas 77059 

1-713-480-6000 


Order Line 
1-800-231-6671 
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Of Old Friends. 
Lead Time and 
Electronic Publishing 


PCM 
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recent project led me to revisit 
A old friends online. I 

needed to use a bulletin board 
that I had not called for several years. 
There was no answer to my call this 
time. Were they off the air, or had they 
relocated or changed their number? 
Where could I find a current listing for 
this particular bulletin board? Hang on 
to that question; first, let's talk about 
the publishing concept of "lead time." 

"Lead time" is a term used by writers, 
editors and publishers to refer to the 
delay from the time the author finishes 
his work to the time it is in the readers' 
hands. To the author, it is that period 
after which he can no longer make 
corrections to his text or update his 
references. 

One way to cut lead time is to simplify 
the editing and publishing process: 
leave off some of the frills, move things 
faster from department to department, 
or distribute directly to the readers as 
when you publish a magazine. How- 
ever, lead time for a magazine can run 
three months or more. 

In the popular mind, writers, editors 
and publishers get frantic about "dead- 
lines" — and they are vital to publica- 





(Randy Graham is a rehabilitation 
counselor working with the handi- 
capped. Personal computing is his 
hobby; telecommunications, one of his 
favorite activities. He has done free- 
lance information retrieval and is an 
inveterate user of the major online 
systems.) 





By Randy Graham 
PCM Contributing Editor 


tion commitments. But as a writer who 
wants to be informative, I am con- 
stantly concerned about how up-to-date 
I can be. 

This leads us to electronic informa- 
tion dissemination and back to my 
original question: Where can I find 
information about a specific bulletin 
board or database, or one dedicated to 
a particular need I have? Well, there are 
a number of good books on the market. 
I keep two on my computer bookshelf, 
The Computer Phone Book by Mike 
Cane (New York, New American Li- 
brary, 1983, $9.95) and OM NT's Online 
Database Directory by Mike Edelhart 
and Owen Davies (New York, Collier 
Books, 1983). How current would the 
information be that I found there? 
Computer magazines will have more 
recent listings but are seldom compre- 
hensive. How can I be sure that I am 
looking at a complete, accurate list? 
Enter the old friends. 

ice was a pio- 
neer in promoting personal computing 
and should probably get credit for 
inventing the concept if not the term 
“user friendly." They maintain-a-com- 


which you can call directly in California 
(619) 561-7277. You can also find copies 
of their directory on CompuServe and 
The Source. Don't try to run or down- 
load their whole list — it is just too 
many pages. Search for the category or 
area code or whatever. There is ade- 
quate help online to guide you. There 
are directories on many bulletin boards, 
but I have not found one that comes 


close to PMS's for completeness and 
maintenance. Novation, the modem 
people, used to have a bulletin board 
with a comprehensive list, but they 
seemed to have moved since the last 
time I called them. 

On a more professional and commer- 


groups are trying. The Source is now 
offering Newsbytes as a weekly newslet- 
ter of computer news. And IF Magazine 
is still online in California as a monthly 
electronic magazine open to the public 
for a call to (714) 255-8868. In addition, 
all the information services have a 


.. . POM is sponsoring a special 
interest group called 'MSDOS' 
for users of MS-DOS-based 


machines." 


cial level, Dialogis offering.4 Database 
of Databases. This is a logical step in 
this rapidly growing field. They have 
2,500 listings that. give name, source, 
coverage, availability, costs, etc. This is 
a valuable and long-needed resource to 
online searchers. 


А New “Magazine” 

Back to the subject of lead time in 
publishing for a moment: can we cut it 
further with online publishing? Several 
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SERVICE AND WARRANTY NATIONWIDE 
TANDY 2000 - 768K 
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ა Add Only 474 





Ask About Our 
“30 Days 


Buy - Back - Policy" 


SERVICE AND 
WARRANTY NATIONWIDE 


bulletin section for news about their 
own operations, and many BBS's have 
news sections containing mostly mate- 
rial the SysOp has read and typed in for 
our edification. 


А Good Book 

I do not want you to think I have 
abandoned the printed page to spend 
my life before the pixeled screen, al- 
though I admit that I long ago decided 
that if I tried to read all the books and 


απο 


TANDY 1000 - 640K 


magazines published about computers, 
I would have no time left for the com- 
puter. Nevertheless, I did run across a 
good book recently on getting started in 
the online lifestyle: Dialing for Data by 
David Chandler (New York, Random 
House, 1984; $9.95). There are a 
number of such introductions on the 
market, but I just liked this man's style 
of writing. If I had gotten around to 
writing a book, I hope it would have 
come across as well as his. 


Chapter Two 

Last month, I mentioned Delphi's 
new Tandy users group which is sup- 
porting the 1000, 1200 and 2000. As you 
might already know, PCM is sponsoring 
a special interest group called 
“MSDOS” for users of MS-DOS-based 
machines. (See “Lprint” for more infor- 
mation.) They have a separate SIG 
supporting the portables; there are also 
portable SIGs on The Source and Com- 
puServe. 

If you are reading this on the plane 
bound for Princeton, look around for 
my name tag at PCMfest and say hello. 
I will be the one with the Model 100 (the 
grown man's teddy bear) under my 
arm. [PCM] 


WILL YOU BUY COMPATIBLE? 


) WILL YOU PAY TOO MUCH? 





TANDY 1200 - 640K 






FORT WORTH COMPUTERS 
Қы... Деме 


WE АНЕ SERIOUS ABOUT SAVING YOU MONEY 


(Located 30 miles from Fort Worth) 
377 PLAZA @ GRANBURY @ NR FORT WORTH. TEXAS 76048 


CALL FREE NUMBER: 1-800-433-5-А- Y: E 


Monday thru Friday - 9:00 a.m. to 5:00 p.m. Texas Time 
(Order Inquires/Customer Service) IN TEXAS: 817-573-4111 
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RADIO SHACK'S NEW 100К 
PORTABLE DISK DRIVE 
CLEARS UP YOUR CASSETTE CLUTTER 









MEET THE NEW 
STORAGE SOLUTION 


If you're like most Model 100 
or Tandy 200 owners, you've 
probably found more uses for 
your portable computer than you 
ever imagined. This is great, but 
it brings up the question of stor- 
age. Where do you keep all 
those great programs you write? 
All that important data? 


Until today it's probably been 
on cassettes—a lot of cassettes. 
And cassettes are cumbersome, 
bulky and, well . . . slow. Now 
there's a better way. 


Our new Portable Disk Drive 
(26-3808, $199.95) gives you fast 
access to 100,000 characters on 
31/2" micro floppy diskettes. 


A TRULY PORTABLE 
DISK SYSTEM 


The Portable Disk Drive 
weighs just 19/4 pounds, mea- 
sures only 2 x 415/16 x 6!/s" and 
runs on batteries or optional AC 
adapter. It's small enough to fit 
into a briefcase along with your 
Model 100 or Tandy 200. Now 
you can have a full-fledged disk 
system wherever you go. Initiali- 
zation software included. 


It'S perfect for 
use with your portable's 
built-in software. Now you can 
store and update large docu- 
ments with TEXT word process- 
ing and keep easy-to-store micro 
disks filed and categorized as 
you need them. 


Or, if you have the Tandy 200 
with built-in Multiplan spread- 
sheet analysis (or the Multiplan 
ROM pack for the Model 100), 
it's easy to keep many different 
spreadsheets on diskette. 
They're available for comparison 
and update at any time. 


REAL DISK DRIVE POWER 


The Portable Disk Drive fea- 
tures easy menu-driven opera- 
tion. The operating system lets 
you list the files on the diskette, 
and features FORMAT, SAVE, 
LOAD, KILL and RENAME func- 
tions. A disk access lamp lets 
you know that the disk is in use. 
Another indicator tells you when 
batteries are low. If they are, the 
unit will not function, but will fin- 
ish a job in progress. 


” SPEED, 
" SIMPLICITY, 
FLEXIBILITY 


Now you can build your soft- 
ware and data library in a cost- 
effective manner. The micro 
diskettes are only $16.95 (pack- 
age of 3), and cost even less 
when you buy in quantity. The 
choice is yours—but we've al- 
ready stacked the deck. Step up 
to reasonable storage today! 


რ 


Тһе Technology Store" 


A DIVISION OF TANDY CORPORATION 


New 1986 Computer Catalog! 
Send me a copy. 


Mail To: Radio Shack, Dept. 86-A-121 
300 One Tandy Center, Ft. Worth, TX 76102 


Company 
Address 
City State Zip 





| 

| 

| 

| 

NUDO. res ier р міз: ша ee | 
>______ | 

| 

| 

| 


Telephone 


Prices apply at Radio Shack Computer Centers 
and at participating stores and dealers. 
Multiplan/TM Microsoft Corp. 


ІШ Barden’s Buffer 


Last month we discussed the first part of a mini-course in 
assembly language using the assembler in Debug. This 
month we'll continue in our effort to give you the 
rudiments of assembly language and assembly language 
interfacing to BASIC in 8,000 words or less. But before 
we go on, we should fill in some gaps that were missing 


in our earlier discussion. . . 





1000/1200/2000 


Using Assembly Language 
on the Tandy PCs 


working with 16-bit registers, usu- 

ally RX, BX, CX and DX. However, 
each of these registers can be used as 
two 8-bit registers, as shown in Figure 
1. The upper eight bits of the registers 
are designated the "high" register and 
the lower eight bits of the registers are 
designated the “low” register. АХ, then, 
becomes RH and RL; BX becomes BH and 
BL; CX becomes CH and CL and DX 
becomes DH and DL. The other 8088 
registers, however, remain only as 16- 
bit registers. Most arithmetic and log- 
ical instructions can use either 16-bit 
registers or the eight 8-bit registers. We 
could, for example, add a value of 20 
to the RH register by the command add 
аһ,20. 


| n the previous examples, we were 


Major Instruction Groups 

We discussed arithmetic instructions 
such as RDDs and SUBs last month and 
also looked at both unconditional and 
conditional jumps. Now let's look at 
some of the other instruction groups. 


(William Barden, Jr. is a master com- 
municator in a field in which he is one 
of the few recognized experts — micro- 
computers. А prolific author of more 
than 27 books and handbooks on com- 
puters and computer programming, Bill 
also has authored several instructional 
software projects for Tandy| Radio 
Shack.) 
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The ones we'll describe constitute 90 
percent of the instructions you'll typi- 
cally use in your own assembly language 
programs. 

Logical instructions: The logical 
instructions perform the same opera- 
tions as BASIC ANDs and ORs and exclu- 
sive ORs. In format they look very much 
like the arithmetic instructions. The RND 
performs a logical AND on an operand: 


апа al,3 


If the RL register contained 00010111 


By William Barden, Jr. 
PCM Contributing Editor 


and the RND above was executed, the 
result would be 


00010110 
AND 00000011 


00000010 


The result of the ñND is done on a bit- 
by-bit basis, with a result bit being set 
only if both operand bits are a 1. The 
RND is used to “mask” out fields within 
eight or 16 bits. 

An or a1,3 would perform a second 


Figure 1. Eight-Bit versus 16-Bit General Registers 


“HIGH” 


"LOW" 





type of logical operation: 


00010110 
ОК 00000011 


00010111 


Неге, а result bit is set if either 
operand bit is a 1. 

The exclusive ПР sets a result bit if 
one, but not both operand bits, is a 1: 


00010110 
XOR 00000011 


00010101 


Shift and Rotate Instructions: The 
shift and rotate instructions are used to 
shift data one or more hits at a time. To 
see how they work, assemble the follow- 
ing code: 


-a 0100 

0930:0100 
0939:0103 
0938:0106 
99390:0199 
0330-0105 
0930:010Е 
0930:0110 
0930:0112 
0930:0114 
0930:0116 


ах,1234 
bx,1234 
Bx. ΓΕΈΤ 
сіх,8000 
ах,1 
x52: 
с 
shr dx,1 
jmp 19с 
ENTER 


mov 
mov 
mov 
mov 
rol 
гог 
shl 


You can now see the effect of the 
shifting by a Debug command called 
Trace. Trace acts like a G (Go) but stops 
after a specified number of instructions 
are executed. For example, to execute 
16 instructions starting at location 0100, 
you'd do: 


-t-0100 10 


For each instruction executed, the 
registers are displayed as if an R com- 
mand had been executed. Execute a 
series of Trace commands and watch 
each register in turn. The ROL and ROR 
instructions rotate data in the registers 
to the left or right. At the end of 16 
rotations, the data is restored to its 
initial status. The SHL and SHR instruc- 
tions shift data to the left or right, with 
zeros being placed into the opposite 
ends to fill vacated bit positions. At the 
end of 16 shifts, the entire register has 
been zeroed. Either 8-bit or 16-bit 
registers or memory locations can be 





rotated or shifted. 

To continue tracing from the last 
instruction, do a -t 10. 

Another type of shift is an arithmetic 
shift. In this type of shift, the sign bit 
is sign extended to the right as the data 
is shifted. Here's an example: 


-a 0100 

0930:0100 mov ах,8000 
0930:0103 sar ах,1 
0930:0106 ітр 0103 


In this example, the initial contents of 
the ñX register is Hex 8000 or decimal 
-32768. After the first shift, the ΑΧ 
register contains C000, or decimal 
-16384. After the second shift, the AX 
register contains E000 or -8192. This 
sign extension continues until the RX 
register holds FFFF, or -1. There is 
only one arithmetic shift in the 8088, the 
SAR. 

Another form of the shift allows you 
to shift more than one bit position at a 
time by specifying a count in the CX 
register. We'll leave that up to you to try 
out. 

Subroutines: Another group of in- 
structions involves subroutine CALLs. A 
subroutine is one of many instructions 
used in a program to eliminate rewriting 
the code each time the same functions 
are used. Assembly language subrou- 
tine calls are identical to BASIC subrou- 
tine GOSUBs in their function. The 
return point of a subroutine call is 
stored into the stack. The stack (dis- 
cussed last month) is a special area of 
memory set aside for return addresses, 
temporary user data, and interrupt 
return points and data. At the end of the 
subroutine a RET (similar to a BASIC 
RETURN) is used to retrieve the address 
from the stack and automatically make 
the return. Like BASIC, assembly lan- 
guage subroutines can be “nested” to 
any level. 


-a 

29930:0130 call 0105 
0930:0103 jmp 100 
0930:0105 call 10b 
0930:0108 inc ah 
0930:0108 ret 
0930:010B dec al 
0930:0100 ret 
0930:010Е ENTER 


The code above has two nested sub- 
routines, one at 105 through 10A and 
the second at 10В through 10D. The 
first increments the RH register by one 
count and the second decrements the RL 
register by one count. Use a Trace 
command to execute 20 instructions 
starting at location 0100 to see the 
action — AH will count up while AL will 
count down. (RH and RL are part of AX, 
and are not displayed separately.) 

To see what happens in the stack, try 
this: 

First observe the contents of the 55 
register and SP register. Remember that 
together they point to the "stack" in 
memory that holds subroutine return 
addresses and temporary data. In my 
system the SS register holds 0930 and 
the SP holds FFA4 before execution of 
the code. 

Now execute by a –L=0100 3. 

This executes the CRLL 0105, fol- 
lowed by the CALL 108, followed by the 
DEC RL. 

At this point, look at the 5S and SP 
registers again. What you will see is that 
SS is the same but that SP is set to a 
value four bytes lower than it was 
initially. In my case, this was FFA4. 
This reflects the current address of the 
“top of stack." Remember that the stack 
builds down. We can take a look at the 
stack by using another Debug instruc- 
tion called D (Dump). Dump displays a 
block of data at one time. To display 
from 0930: FFA4, do -d @930:FFA4. 

What you'll see will be something like 
the display in Figure 2. 

The Xs here represent "don't care 
data.” Initially the SP was set to FFA8. 
However, when the first call to 0105 was 
done, the return address of 0103 was 
*pushed" onto the stack and the SP was 
then adjusted to FFA6. This was fol- 
lowed by a call to 0108, and the return 
address of 0108 was pushed onto the 
stack. After the push, the pointer was 
set to FFA4. (The “pushes” are all done 
automatically by the action of the CALL 
instruction.) The RET instructions 
“pop” the return addresses off the stack 
and adjust the SP the other direction. 
After two RET instructions the SP now 
stands at what it was initially, FFA8. 

The stack is not only used automat- 
ically to store return addresses. It can 
also be used by PUSH and POP instruc- 
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It's the Holmes Engineering/PCSG “chipmunk” 





PORTABLE , 


Uses the main menu concept. You see the 
disk directory instantly, arranged on your 
M-100 screen like your main menu. Just move 
the widebar cursor and transfer files with a 
function key. You can run a file directly from 
the diskette with the ENTER key. Uses 3^" 
microfloppy diskettes that have a rigid plastic 
casing and a metal core. They're tough and 
nonflexible. You can carry several in a shirt 
pocket without damage. There's 358K on a 
diskette. Ten of these in your briefcase and 
you've got 35 megabytes. 

Drive weighs only three Ibs. and it works 
directly from the 110 outlet and recharges at the 
same time. It recharges in six hours with 
thousands of pages transferred between 
charges. It's compact, with dimensions of 2/4" 
x 5%" x 7.5"; and fits easily into your briefcase 
along with your Model 100 or 200. 

Machine code programs, BASIC pro- 
grams, Lucid files and documents all are saved 
and retrieved with no protocol- instantly, ready 
to run. 

In a special association, Holmes En- 
gineering and PCSG have worked together 
combining the hardware knowledge of Holmes 
and the software expertise of PCSG. The re- 
sult is a product that can only be regarded as 
excellent. 





You see the disk directory 
instantly; works just like the 
main menu 





Here is what is really exciting. The port- 
able disk drive has Random Access. Included 
as part of the operating system in the drive 
(ROM) is a very powerful disk BASIC. 

This means that you can have BASIC 
programs that will access the diskette and read 
and write records directly on the diskette. 

Just imagine yourself with this kind of 
capability. 


нн D(SG offers а 30-day/money-back trial! t 






Database — The portable disk drive stores 
your mailing list, inventory items, part #s and 
descriptions or any other data that you need 
to recall. 





358K on a diskette 





Invoice (purchase order)— At the touch of 
a button you can print out your sequentially 
numbered, professionally done invoices. This 
is truly professional invoicing capability. 

Purchase orders are just as easy. 

Sort — This excellent utility allows you 
rapid sorting of any records you have compiled. 
You can write the newly sorted list back in the 
same file on the diskette or to a new file. 

Telecom interface – II you are a user that 
likes to access other computers or databases 
(for example CompuServe) by telephone then 
this powerful facility alone is worth the price of 
the disk drive. You can automatically download 
and upload information onto the diskette. 

Calendar — Everyone who has seen this 
program has said, ““Тһі is the first calendar/ 





7 





for the Model 100/200 





diary/scheduler on any computer any where that 
I can use. It is so functional." 

The calendar program is usable for two 
reasons, first it is designed correctly, and 
second you have the memory (358K) on the 
diskette to log and access a tremendous amount 
of notes over a long period of time. 

Personal Finance Manager — This 
wonderful program truly lets you keep track of 
your finances. 

АП your records are kept on the diskette. 
Bank accounts (checking and savings) and 
charge accounts such as MasterCard and Visa. 

We at PCSG believe we have the ultimate 
Model 100 system, the Portable Disk Drive 
plus the Lucid spreadsheet on snap-in ROM, 
Write ROM word processing and the new 64K 
RAM expansion now available from PCSG. 

We want you to find out for yourself at no 
risk. If you aren't totally satisfied within 30 
days, simply return the disk drive for a full 
refund. Priced at $599.95, including the soft- 
ware library. MasterCard, Visa, COD. 


RORIABLE 
СОМЕ ЛЕК 
ОНОК 


ORCUP 
1-214-351-0564 


11035 Harry Hines Blvd., #207 
Dallas, Texas 75229 





tions to store register data temporarily. 
This is often done so that the registers 
can be used for other purposes. Any 
data that is stored, however, must be 
retrieved, or at least the SP must be set 
to the initial value. Here's an example 
of a storage of RX and BX and a later 
retrieval: 


push ax 
push bx 


pop bx 
pop ax 


Note that the registers are restored in 
the reverse manner from which data was 
stored. As a point of fact, however, data 
does not have to be restored in the same 
registers, or even restored at all, as long 
as the SP is set back to what is was 
initially. 


Other 8088 Instructions 

We've covered a large number of 
instructions above, but haven't touched 
on a number of the more interesting 
instructions in the 8088, such as the 
multiply, divide and string processing 
instructions. We'll cover some addi- 
tional instructions in the remainder of 
this column, but can't describe every 
instruction. One thing that will be 
indispensable is a good reference book 
on 8088 assembly language. Probably 
the best place to start is to look at 
publications by Intel, the manufacturer 
of the 8088. Technical book stores may 
have the Intel “iAPX 88 Book," which 
provides a detailed breakdown of the 
8088 instruction set. Books by other 
authors range from fair to excellent. 
The IBM Macro Assembler or equiva- 
lent Radio Shack documentation is also 
helpful, but is bundled with the soft- 
ware, and you may not choose to make 
the investment at this time. 


Application Examples 

We now have a little knowledge of 
assembly language and should be well 
prepared to create chaos on Tandy 
1000s, 1200s or 2000s. In all seriousness, 
however, there's not too much trouble 
we can get into. If the system “locks up" 
and you can't get back to Debug, just 
reload and start again. We'll also show 
you how to save a memory image on 
disk so you will be able to restore longer 
programs without having to reenter 
everything from scratch. We'll consider 
two programs here. Program 1 will 
change all uppercase characters to 
lowercase characters. Program 2 will fill 


the display screen with any given char- 
acter. 


Program One: Uppercase to Lowercase 

Like any programming problem, the 
first step is to do some thinking about 
what's involved. Uppercase and lower- 
case characters are both represented in 
PC compatibles by ASCII codes. The 
ASCII codes for uppercase ‘A’ through 
*Z' are 65 (decimal) through 90 (de- 
cimal), while lowercase “а” through ‘z’ 
are 97 (decimal) through 122 (decimal). 
We'll assume that we're given an ad- 
dress of a text string of a given length. 
Since this assembly language code will 
probably interface to BASIC, we'll as- 
sume that the text string will be no 
longer than 255 characters. The address 
could be anywhere within the BASIC 
segment, so we'll need a 16-bit address 
value that points to the beginning of the 
text string. The process would appear to 
involve "scanning" a text string from 
beginning to end, looking at each char- 
acter to see whether it is an uppercase 
character. If it is, we'll change it to the 
corresponding lowercase character by 
setting bit 5 of the character. An ' Hex 
value of 49, for example, binary 
01001001, can be changed to lowercase 
by setting bit 5 — 01101001. 

By the way, this is not something that 
an experienced assembly language pro- 
grammer can immediately sit down and 
crank out. He'd have to do some head 
scratching first, just as we're doing. 

My first programming attempt pro- 
duced this: 


-a0100 

0930:0100 
0930:0102 
0930:0104 
0930:0106 
0930:0108 
0930:0108 
0930:010С 
0930:010Е 
0930:0110 
0930:0112 
9930:0113 
99390:0115 


cmp si,di 
je 115 

mov al,[si] 
cmp al,40 
jle 112 
стр а1,5а 
jg 112 

or а1,20 
mov [si],al 
inc бі 

jmp 100 
ENTER 


One thing that you might notice in 
entering the address for the JMPS is that 
you don’t know beforehand what the 
addresses will be. For example, when 
entering JE at 0102, you don’t know at 
that point that the ending point of the 
program is at address 115 because you 
haven’t entered all of the instructions 
and Debug has not computed the in- 
struction lengths. In these cases, simply 
put in a “dummy” address, such as І FF, 
and then go back with a single location 


A to enter the correct address after all 
of the instructions have been entered. 

Let’s look at the program in detail. 
The program assumes that the starting 
address of the text string will be in the 
SI register and the ending address of the 
string will be in the Di register. SI and 
DI are typically used to hold addresses 
in this fashion. We'll see why in a 
moment. 

The CMP instruction compares the 
contents of SI and DI. If they are the 
same, the last byte (character) of the 
string has been reached then the pro- 
gram ends with a jump (JE) to location 
115. Location 115 has no instruction, 
but we'll just breakpoint there for the 
time being. 

If the contents of SI and DI are not 
equal, then there are more characters to 
process. The "current" character is 
moved into the RL register by MOV 
RL,[SI]. This instruction uses the SI 
register as an "index register" that 
points to the next character. Remember 
that SI contained the starting address 
upon entry into the program. SI will be 
incremented by one as each character is 
tested. The MOV AL,[SI] form of the 
instruction loads the RL register with the 
character pointed to by the SI register. 

With the current character in RL, the 
next step is to see if the character falls 
between 40 and 5A (Hex). Two com- 
pare/conditional jump combinations 
are used for this. The first tests for RL 
less than or equal to 40 and jumps to 
location 112 if so. In this case the 
character is not an uppercase text 
character. The next tests for AL greater 
than 5A. If this condition exists, the 
character is a higher value than an 
uppercase text character and a jump is 
made to location 112 again. 

At IOE, the character in RL must be 
within the range of 41 through 5A, an 
uppercase text character. The OR AL, 20 
instruction ORs the contents of AL with 
the Hex value 20 (binary 00100000), 
setting bit 5 and converting the charac- 
ter from uppércase to lowercase. The 
character is then stored back to memory 
by using the SI register contents as a 
pointer once more. SI at this point has 
not changed. The next instruction is 
executed in all cases. It increments the 
contents of SI by one to point to the 
next character. An unconditional Jmp 
is then made back to the beginning of 
the program. The tests are repeated for 
every character in the string. 

How can we test this program? А1- 
most every program requires some 
testing and the testing usually takes as 
much time as writing the program in the 
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USE YOUR DESKTOP COMPUTER AS А 
DISK DRIVE FOR YOUR M-100. 





Try Disk + for 30 days. If you aren't as 
| excited as we are, return it for a full refund. 


When we designed Disk + we did it out 
of necessity. We wanted a way that we 
could just connect a Model 100 to our 
desktop computer with a cable and save 
files onto the desktop's disk drive. We 
wanted it to be so simple to use it would 
be self-explanatory. 

Picture this. Disk + comes to you on a 
Snap-in ROM and a diskette for your 
desktop. You take a quarter and open the 
little compartment on the back of your 
Model 100. Then you just press the ROM 
into the socket. Disk + appears on your 
main menu just like a built-in. 

You connect your Model 100 to your 
other computer using an RS232 cable 
(available from PCSG for $40). 

You just place the Disk + diskette into 
the desktop's drive and turn on the com- 
puter. It powers up automatically and says 
"awaiting command" on your desktop's 
screen. Then you just put the widebar 
cursor on the Model 100 main menu on 
Disk -- and press ENTER. You are shown 
your RAM files arranged just like the main 
menu. 

To save a file to your other system's 
disk drive, you just move the widebar cur- 
sor to the file you want to save and press 
ENTER. It is saved instantly with no 
further action. 

To look at the disk directory, you just 
press a function key on your Model 100. 
You see immediately the disk directory on 
your Model 100 screen, and it is arranged 
just like your Model 100's main menu. 

To load a file from the diskette to your 
Model 100, you just move the widebar 
cursor to the file and press ENTER. The 
file is transferred to your Model 100's RAM 
instantly. You can press F8 and go back to 
the main menu, and the file you loaded 
from diskette is there, ready to use. 


It is so nice to be able to keep your 
documents, programs (both BASIC and 
machine code) and Lucid spreadsheet 
files on the diskette, and bring them back 
when you need them. All files are ready 
to run or use with no changes or protocol 
by you: 


If you have access to a desk- 


top computer and don't 
have Disk + , then evidently 
we have done a poor job 
telling you about it. 


All files and programs that you load or 
save, go over and come back exactly as 
they are supposed to be because of full 
error checking. This guaranteed integrity 
is really a comfort. Disk + is wonderful in 
so many other ways. For example, you 
can do a "save all" of all your RAM files 
with just a touch of a function key. That 
group of files is saved on the diskette 
under a single filename with a .SD (for 
subdirectory) extension. Any time you 
want, you can bring back all those files at 
once, or just one or two if you like, again 
with one-button ease. 

Disk-- takes up no RAM. That's zero 
bytes either for storing the program or for 
operating overhead. 

What really excites most Disk + users 
is text file cross compatibility. Your Model 
100 text files are usable on your desktop 
computer, and your desktop's text files 
become Model 100 text files. 

This means you can write something on 
your Model 100, and with iw T transfer it 


.3______-__ 


1- 214-351- 0564 





instantly to your desktop and start using it 
right away on your bigger computer. Or 
the way we like to work is to type in a 
document on the desktop computer and 
then transfer it to our Model 100 with 
Disk +. Then we print out the document, 
beautifully formatted, using WRITE ROM. 

Disk-- works with just about every 
micro sold, from IBM PC and its clones, to 
all Radio Shack computers (yes, all), to 
Apple ΙΙ, Kaypro, Epson and most CPM. 
Just ask us. More than likely, your comput- 
er is supported. 

Incidentally, hundreds of Model 100 
owners have gone to their Radio Shack 
stores and bought a color computer be- 
cause it is so low priced, and with Disk + 
they have an inexpensive disk drive. 

And if that weren't enough, how about 
this: Disk + also provides cross-compati- 
bility between different computers like 
IBM, Apple or the Model 4 using the Model 
100 as the intermediary device. Quite a 
feature! 

The snap-in ROM is really great be- 
cause you can use other ROMs like Lucid 
or WRITE ROM. They snap in and out as 
easily as an Atari game cartridge and you 
never lose your files in RAM. 

Anyone who ever uses Disk+ simply 
can't do without it. But so many times we 
have had new users call us and say, 
“Wow! had no idea when | ordered it that 
Disk + would be so fantastic. | just 
couldn't believe that | could use my 
desktop computer's disk drive with my 
Model 100 just like it is another main 
menu." 

That's why we sell Disk+ on a thirty- 
day trial. If you aren't completely satisfied, 
return it within thirty days for a full refund. 
Priced at $149.95 on Snap-in ROM. Mas- 
terCard, Visa or COD. 


HORIABLE COMRUTER URORT ОКО Р 


11035 Harry Hines Віха., #207, Dallas, Texas 75229 • 1(214) 351-0564 


PCSG provides hotline software support for the Model 100. Call us а! 1-214-351-0564 
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first place. Іп this case, the testing will 
take even longer. Let's start out with а 
single byte of test data in an unused 
location, say location 0120, to keep the 
data away from breakpoints and the 
program. We'll put an uppercase “А” 
into location 0120 by this command: 


-e 0120 “A” 


This Debug command enters ап “А” 
into location 0120 which we can verify 
by a Dump: 


-d 0120 


Now we'll use the R command to 
change the SI and DI registers to point 
to 0120: 


-r si 
SI 0000 
:0120 
-r di 
DI 0000 
:0120 


At this point we should be set to go. 


-в 0120 “NOW IS THE TIME” 


The SI and DI registers are then set 
for the new string: 


-r si 
SI 0000 
:0120 
-r di 
DI 0000 
:012e 


After a check of the registers by R, we 
execute again. This time a d120 reveals 
that the data in the 120 area has been 
set to “now is the time." One more test 
might be nice, a test to see that no data 
is changed when it shouldn't be. E is 
used again to enter data that should not 
be changed: 


-e 0120 "asdf1234H$Z" 


A check after execution reveals that 
this data has not changed. At this point 
we can say that the program appears to 
be working. However, there may still be 
bugs lurking within! 


Program Two: Fill the Display 
Screen With a Given Character 

The next program we'll consider is a 
program to fill the display screen with 
a given character. As in the first pro- 
gram, we'll need to do a little thinking 
about the design of the program before 
beginning. The display screen for a 
color graphics display is located at 
absolute memory address B8000, as 
shown in Figure 3. Each character 


Figure 3. Text Mode for Color Graphics 


LINE 1, CHAR 1 CHARACTER 


LINE 1, CHAR 1 ATTRIBUTE 


B800:0000 
:0001 


A quick check of the registers by 
another R command verifies that SI and 
DI contain 0120. We'll execute at 0100 
and breakpoint at 0115: 


:0002 | LINE 1, CHAR 2 CHARACTER 
LINE 1, CHAR 2 ATTRIBUTE 
LINE 1, CHAR 3 CHARACTER 


:0003 
:0004 


-g-0100 0115 


After reaching the breakpoint, how- 
ever, we've found that location 0120 still 
contains an uppercase “А” rather than a 
lowercase “а” as we expected. What's 
wrong? A little more head scratching 
uncovers this fact: The comparison of 
SI and DI in the first instruction imme- 
diately terminates the program! The 
JMP instruction should have been JG, or 
JMP if SI was greater than DI. Making 
the change, we now have: 


0930:0100 
0930:0102 
0930:0104 
0930:0106 
0930:0108 
0930:0108 
0930:010С 
0930:010Е 
0930:0110 
0930:0112 
0930:0113 
0930:0115 


стр si,di 
18 115 

mov al,[si] 
cmp al,40 
jle 112 
cmp al,5a 
1812 

ог а1,20 
mov [si],al 
inc si 

jmp 100 
ENTER 


Now reset the SI register to 120 and 
execute. This time execution reveals a 
61 Hex in location 0120, equivalent to 
an ASCII “а”, Heady with success, we 
use the Debug E command to create a 
string of characters: 


ATTRIBUTE 
BYTE 


BLINK 


FOREGND 
— eid 


вадка о LI | | 


L.INTENSITY 
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position іп text mode is made up of two 
bytes, the actual ASCII character dis- 
played and an “attribute” byte. The 
attribute byte controls blinking, fore- 
ground color, and background color as 
shown in the figure. To fill the screen 
with a given character, then, means 
writing the character to every even- 
numbered byte starting from B8000 and 
ending 2,000 bytes later, in 80-character 
mode (25 lines at 80 characters is 2,000 
characters). Each attribute byte should 
probably also be set to some reasonable 
value. We'll use a value of 15 decimal 
for a normal text display. See Figure 3. 


The main problem here is how to 
address the B8000 area. We know that 
we can address 64K bytes within a 
current segment, but how do we address 
another segment? One way to do it is to 
use the ES, or extra segment register. If 
we set that to B800, we'll be addressing 
the start of the video display memory. 

Our first rough attempt at this prob- 
lem produces: 


-a 0100 

0930:0100 
0930:0103 
0330:0105 
0930:0108 
0930:010R 
0930:01090 
0930:0110 
0930:0114 
0930:0117 
9930:0118 
0330:011β 


bx , b800 
es,bx 
сх,200 

mov а1,15 

mov 51,0 
es:mov [si],ah 
es:mov [sitl],al 
add si,2 

dec cx 

jnz 10d 

ENTER 


mov 
mov 
mov 


Let's look at this code in detail. First, 
we've made the assumption that the 
character to be stored is in the RH 
register. RL. will hold the value to be put 
into the attribute byte. The ES register 
is loaded with the value B800 by first 
loading the ΑΧ register and then transfer- 
ring the value. The CX register is then 
loaded with a count of 2000 (7000 in 
Hex), representing the 2,000 characters 
that must be transferred. The RL register 
is loaded with the attribute value. The 
SI register is used as an index register 
in the same fashion as in the preceding 
example. The 0 represents an offset of 
0; it will be incremented during the 
transfer of data. 

The main loop of this program is at 
10D through 118. Each time through 
the loop, the character to be displayed 
is stored from RH, and the attribute byte 
is stored from RL. A MOV accomplishes 
both stores. The first store is to the 
offset pointed to by SI. The next store 
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is to the offset*1. The ES: mnemonic is 
called a segment override mnemonic. It 
tells the 8088 that the following instruc- 
tion will reference the ES segment, 
rather than the DS segment as would be 
done without the override. 

The ADD instruction adds 2 to the SI 
register to point to the next two bytes, 
the character and attribute bytes. The 
CX register is decremented by one. 
When CX is decremented down to zero, 
2,000 stores of the character and attri- 
bute byte will have been done, and the 
program is over. If 2,000 stores have not 
been done, however, the program con- 
tinues by the JNZ 100. 

Before executing this program, we 
must put the character to be stored in 
RH. This can be done by 


-r ax 
AX 0000 
:4100 


Note that the АХ register must be 
specified. It's not possible to fill only 
one half of the ñX register by RH or RL. 

Now a Go can be executed with a 
breakpoint at 011A: 


-g7100 11а 


Sure enough, as in most assembly 
language programs, the code did not 
work the first time. I got a washed out 
set of A's on my black and white dis- 
play. A little investigation turned up the 
fact that the RL was loaded not with 15 
decimal, but with 15 Hex as in the code 
above. Change the line to 


mov al,f 
and the program will work. 


Saving and Reading 
Programs From Disk 

Three more Debug commands may 
prove extremely helpful. It is possible to 
save a core image of the assembly 
language code and data you've entered 
by first naming a file by the N command: 


-n alnuml.dat 


Next, the number of bytes to be 
written must be loaded into BX and CX: 


-r bx 
BX B800 
:100 
-r CX 
Сх 0000 
:100 


We've used 100 bytes (256 bytes 
decimal) here as an arbitrary value, but 
you should use a value dependent upon 
the program size. Finally, the address of 
the start of the data is specified in a 
Write command. If no address is spec- 
ified, the data will be written out from 
location 0100. 

-w 

When the write is being done, you'll 
see the message 

Writing 100 bytes (this example) 

Thereafter, to load in the file contain- 
ing the data, just do an L command: 

-1 


(If you are loading in the file initially, 
however, you must first specify a file 
name by using an N command.) 


Interfacing To BASIC 

АП of the above is well and good, but 
what do you do with the assembly 
language program once you have it? 
One excellent idea is to interface it to 
BASIC. That way BASIC and assembly 
language can work together, BASIC 
providing the input and output format- 
ting, and assembly language providing 
the high-speed processing for those 
time-critical functions such as sorting 
and string processing. 

Let's see how this is done by taking 
one of the two application examples 
above and using it with a BASIC 
"driver." We'll choose the screen dis- 
play. 

First, we must determine the memory 
in which the assembly language pro- 
gram is to reside. BASIC operates in a 
64K segment as shown in Figure 3. The 
top of this segment can be "protected," 
or reserved for assembly language, by 
loading basic with the ^M switch. An 
example is 


A>BASICA ZM:60000 


which reserves offset locations 60000 up 
65535 in the BASIC segment for assem- 
bly language subroutines. Anything put 
in these locations will not be touched by 
BASIC as it uses its stack and string 
storage area. A similar command is 
CLERR, 60000 from within a BASIC 
program. 

If you have a system with minimum 
memory, by the way, you'll probably 
have to use a much smaller value for this 
protected area, as there may not be that 
much memory left over by the time 
BASIC, video graphics areas, and so 
forth are loaded. For that reason, we'll 
use a value of 25000 in the following, 


allowing the program to run оп 128К 
Tandy 1000 systems. 

The next requirement is to move the 
assembly language code into the pro- 
tected area. One convenient way to do 
this is to store the machine language 
code in the form of data statements with 
the &H prefix. Before we do that, 
though, we've got to modify our code 
slightly to enable parameters to be 
passed from BASIC to assembly lan- 
guage. (In other cases, parameters may 
be passed back the other way, or in both 
directions.) 

Here's the modified program, reen- 
tered from Debug: 


-a 0100 

9930:0100 
99309:0101 
2930:0102 
9930:0106 
2930:0109 
0930:010B 
0930:010Е 
0930:0110 
0930:0113 
. 0930:0116 
0930:011R 
0930:011D 
0930:011Е 
0930:0120 
0930:0121 
0930:0122 


db 0 

push es 

mov аһ, [6188] 
mov bx,bB00 
mov es,bx 

mov сх,200 

mov al,f 

mov 51,0 
es:mov [si],ah 
es:mov [si*1],al 
add si,2 

dec cx 

jnz 113 

pop es 

retf 

ENTER 


The first added here was a DB pseudo- 
op before the code. The DB operates 
much like the DW, except that it reserves 
one byte per argument. The second 
thing added was a PUSH ES to save the 
contents of the ES register in the stack 


Figure 4: 


-d100 

0930:0100 00 06 BA 26 R8 61 BB 
0930:0110 BE 00 00 26 ВВ 24 26 
0930:0120 97 СВ 


for the return to BASIC. АП segment 
registers must be restored when the 
assembly language code returns to 
BASIC. The next change was MOV 
AH, [6188]. This instruction moves the 
data from location 61A8 (25000 dec- 
imal) into the RH register. Recall that ЯН 
holds the byte to be stored on entry. The 
POP ES restores the contents of ES 
before the return to BASIC. The last 
thing added was an RETF instruction so 
that the assembly language code be- 
comes a true subroutine. The RETF here 
is different from the normal RET used 
in Debug; it's a “Far” Return, indicating 
that both the CS register and offset 
address must be retrieved from the 
stack. The call from BASIC was located 
out of the BASIC data segment and was 
a corresponding “Far” call that changed 
the CS register in addition to specifying 
an offset within the new code segment. 

The next step is to Dump the machine 
language from Debug so that we can see 
what bytes to store in the BASIC DATA 
statements. The relevent portion of the 
Dump looks like Figure 4. 

We can now put the code into BASIC 
DATA statements as in Figure 5. 

When this program is executed, you 
will see data appearing so fast on the 
entire screen that you won’t be able to 
make out individual characters. Con- 
trast this with the speed of BASIC! 


The CALL Statement 

The CALL statement in BASIC actually 
transfers control to the assembly lan- 
guage code. Normally the CALL can be 
used with any number of parameters. 
The parameters are passed to the assem- 


00 ВВ BE C3 В9 00 07 BO ОҒ 
ВВ 44 01 8З С6 02 49 75 ҒЗ 


, 803, 869, HDO. &H02.&HBO,&HOF . 
ATA &HBE,&HOO, HOO, &H26,&HBB,&H24,&H26,&HBB - 
о їндї, , SHES, нс, 8HO2, 8H49, #075, &Hr3 





) i Hid: 2500041, в: NEXT. I:  RLSUB- 25001. 
: POKE. 25000,8: CALL RLSUB HHH: 





bly language program via the stack, 
which both BASIC and the assembly 
language code share. Here, though, 
we've used a “parameterless” CRLL that 
simply calls the assembly language 
code. We've passed the parameter by 
defining the first location of the assem- 
bly language program as a mutually 
agreed upon location to hold the char- 
acter to be displayed. Тһе CRLL actually 
calls the assembly language code one 
byte after the parameter. If this were not 
done, the 8088 would attempt to exe- 
cute the parameter value, which would 
probably be a garbage instruction. 


Position Independent Code 

A word of warning is in order. Not 
all Debug assembled programs will be 
able to be incorporated into BASIC 
statements as we did here. If you use 
constants inside the program and MOV 
them with absolute addresses, those 
addresses will be wrong when BASIC 
executes the assembly language pro- 
gram. Here's an example of what we 
mean: 


0930:0105 mov ax,010R 
0930:0108 jmp 0100 
@930:@1@A db 23 


The MOV RX,010R assembles as 
B80901, with the 0901 representing an 
absolute offset within the current code 
segment. This offset will be different 
when the program is loaded into the 
BASIC data area. Conditional and un- 
conditional jumps are “position inde- 
pendent," however, as they assemble 
relative to their location and do not 
include absolute addresses for jumps 
that are close. There are tricks to get 
around this limitation, but that's 
another column. 


In Summation 

In 8,000 words, we've touched on 
assembly language in the Tandy 1000, 
1200HD and 2000, but left out a great 
deal of material! I hope this has given 
you the flavor of what's involved, 
however. It is definitely not for the 
casual Lotus 1-2-3 user, but can be very 
rewarding if you're willing to spend the 
time in training. I am currently finishing 
a complete course with text and soft- 
ware for assembly language on the 
Tandy 1000, 1200HD and 2000. For 
more information, write me at P.O. Box 
3568, Mission Viejo, CA 92692. Next 
time we'll be back with less esoteric 
topics, perhaps describing in detail how 
to turn on your system and set the 
clock. [РСМ) 
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Palette Animation 


With Wayne Sanders, Curator 





1 “his month's featured exhibit is the work of William Fronek of Houston, Texas. 





The program, called МАМЕ . BRS, simulates computer animation with clever use of BASIC's PALETTE command. 
It runs on either a Tandy 1000 or a Tandy 2000 with graphics. If you will be using it on a Tandy 2000, change 
the first line to read 1000 MODEL -2000. 
If you have a creation you'd like to see presented here, by all means, send it in. A winning gallery exhibit is chosen 
each month, and the "artist" is awarded $50. Address your entries to Wayne Sanders, PCM Gallery, P.O. Box 385, 
Prospect, KY 40059. You might find it well worth the effort! 


| ‘The listing: 
ii m i 5. 


Age NEXT. | | 
11110 FOR: gat, TO. 
(beg ο PALETTE 0,12 
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| The Integrated Desk 1000/1200/2000 


PCM introduces a new monthly column 
that helps you put Tandy s DeskMate to work 





Ihe Integrated Desk 


elcome to PCM's new Desk- 
Mate column. You will find 
important information and 


interesting tidbits here each month to 
help you get the most from your Desk- 
Mate software. I'm excited to bring you 
this column and I think you will find it 
useful whether you're a beginner or an 
advanced computer user. 

As you may know, Tandy distributes 
Desk Mate with every new Tandy 1000 
and 4D. Versions are available for other 
models, such as the 1200, 2000, Model 
4/4P and Color Computer. I will con- 
centrate in this column on the MS-DOS 
versions of Desk Mate for the 1000, 1200 
and 2000; especially the 1000 since 
everyone receives a copy of Desk Mate. 

Iencourage you to write me with your 
problems, suggestions or questions 
about Desk Mate. Let's face it, no man- 
ual completely covers all the subjects or 
questions a person may have with a 
particular piece of software, and Desk- 
Mate is no exception. And in this case, 
an integrated package, there can be 
many questions about each feature. So, 
don't hesitate to write and share your 
thoughts or problems. 





(Bobby Ballard is a free-lance writer 
and the owner of a computer software 
and consulting firm. He also operates a 
BBS in Brooklyn. Bobby can be con- 
tacted at 1207 Eighth Avenue, Apt. 4R, 
Brooklyn, NY 11215.) 


By Bobby Ballard 


Integrated Versus Dedicated 

Desk Mate might have been your first 
experience with an integrated software 
package. If so, let me help you get a 
grasp on the difference between inte- 
grated and dedicated software and what 
they mean to your productivity. After 
all, you bought your computer to be 
more productive, right? 

When you see the term integrated 
software, it can sometimes have various 
connotations. Most of the time though 
the term is applied to progams that 
combine features traditionally found in 
separate packages. In the past, if you 
wanted to process words, you bought a 
word processor or editor of some type 
and used it for just that task. Then, if 
you needed to file some information, 
you would load a database program, set 
up your files for whatever type of data 
you needed to keep track of and then 
file it. There are many historical reasons 
for the separation of these tasks, but the 
main one is memory capacity. These 
separate but equally powerful programs 
are known as dedicated applications. 

As the industry moved toward more 
memory at lower cost, programmers 
were given the ability to combine differ- 
ent features in one program and to 
make those features interactive. In the 
past, you might not have been able to 
combine a letter with your files unless 
the two programs could "talk" to each 
other or you bought a program to make 
them interactive. This combining of 
features is known as integrated soft- 
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ware, and that's the category into which 
Desk Mate falls. 

Desk Mate packs many features and 
a lot of power for the money spent. 
Although the names have been 
changed, the tasks are essentially the 
same. You get a word processor in the 
"Text" section to handle your writing 
needs. The *Worksheet" section is a 99 
by 99-cell spreadsheet for performing 
complex calculations and "what if" 
functions. “Filer” is a database manager 
that will not only keep track of your 
data, but allow you to combine your 
data with the "Text" feature using a 
merge function. The “Telecom” feature 
is a telecommunications package that 
handles dialing the phone, “auto-logs” 
and the protocol settings for using a 
modem to send and receive data over 
the phone lines. The “Calendar” feature 
provides time management software 
that works with the “Alarm” feature to 
warn you before the event is about to 
happen. The “Mail” feature provides a 
way of receiving files over the phone 
lines while leaving your computer unat- 
tended. This works in conjunction with 
the “Host” mode found on the single- 
line menu at the bottom of the main 
menu. 






In addition, DeskMate provides a 
simple calculator, on-screen help files, 
an alarm file editor, voice phone dial- 
ing, data and time functions and printer 
settings modification. Each month ГЇЇ 
cover one of the many and varied 
features found in Desk Mate, weed 


i 
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through the manuals апа help files and 
pass on tips that you have found and 
sent in to share with others. 

You must remember that integration 
has its drawbacks. While you may be 
able to write a letter, merge it with a 
spreadsheet and then send it out over 


RECIPE PACKAGES FOR 


SMARTCOOK 


Meurs Enterprsesr, Ino” 
SMARTCOOK PACKAGE 

Different categories 
LADY PENELOPE 


MICROWAVE AND 
CONVENTIONAL COOKING 


$14.50 ea. 





the phone lines to others, you will find 
trade-offs for the convenience. What 
are those trade-offs? Let’s take a look. 

The first obvious drawback is the size 
of the files with which you can work. 
For example, when you go to download 
using the “Telecom” feature, you will be 
limited by the size of the buffer you have 
in which to capture data. With Desk- 
Mate, the buffer is only 17K or about 
17,000 bytes. Each character received 
takes a byte so your files will have to be 
no longer than several pages of single- 
spaced data. Some quick calculations 
reveal the details. If the average word 
in the English language is five charac- 
ters in length, and you allow for control 
characters as well, you can only down- 
load about 3,000 to 3,400 words. At 
1200 Baud you receive about 24 words 
a second. At that rate you will fill your 
buffer in about two and a half minutes. 
At 300 Baud you will fill your buffer in 
just under 10 minutes. 

A second drawback is limited fea- 
tures. You will notice, especially if 
you’ve worked with other software, that 
many features of dedicated programs 
аге not found in Desk Mate applica- 
tions. To give another example, the 
word processor in Desk Mate does not 


EXPAND THE TANDY 2000% 


TO 
896K 


The finest of gourmet dining 
YOUR TICKET TO THE KITCHEN 
For the younger chef 
MY VERY OWN RECIPES 
Save your own favorite recipes 


MICROWAVE OR CONVENTIONAL. 


*CHOOSE THE NUMBER OF SERVINGS FROM 


1 THRU 24. 


*MAKE INGREDIENT SUBSTITUTIONS 


WHERE NECESSARY. 


*PRINT CUSTOMIZED RECIPE WHEN YOU 


WISH. 
*BE AN AWARD-WINNING CHEF! 


MOST COMPUTER SYSTEMS SUPPORTED. 
(APPLE, IBM, COMMODORE, KAYPRO, 


ZENITH, COMPAQ, ATARI) 
(TANDY 1000, 1200, 2000HD) 


MASTER/VISA ACCEPTED 
LE COM ENTERPRISES, INC. 
P.O. Box 346 
Winfield, IL 60190 
(312) 682-0650 


Shipping & Handling — $1.50 
(dealer inquiries invited) 
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$29.50 ea. 


$29.50 ea. 


$29.50 ea. 
*CHOOSE YOUR WAY OF COOKING — 


OF DOS ADDRESSABLE RAM 


Includes RAMdisk Software at No Extra Cost ... 
Add 640K of External RAM Memory to TANDY 2000's* 
256K of Internal RAM Memory for a total of 896K of DOS Ad- 
dressable RAM. 

* Uses only one (1) External Memory Card Slot 

* RAMdisk Software is included with the price. 


$495.00 for a 640K bytes of External 
RAM Memory Board (Includes RAMdisk 
Software) 

Call about our Trade-in Exchange 

if you already use Tandy's 128K External 
Memory Board. 


for ordering (509) 627-5291 
and information call: Hours 9:00-5:00 PST 


cost: 


, We accept Check, MO, Visa, Mastercard 
Беггт: Add 7.3% sales tax in Wash. 
Add $3-shipping/handling, $5 foreign. 


TANDY 2000% 15 A TRADEMARK OF TANDY CORPORATION 
RAMdisk is a Random-Access-Memory based disk 





ENVISION DESIGNS 


1909 ORCHARD WAY * RICHLAND, WASHINGTON 99352 


һауе global search and replace ог а 
spelling checker, and the scrolling 
becomes slower the fuller the buffer 
gets. These are small trade-offs to be 
able to compose mail and send it over 
the phone lines or merge letters with 
spreadsheets and files, but these trade- 
offs may be limitations you can't live 
with and will want to buy dedicated 
software for some of your applications. 

Ipointoutthese things notto degrade 
Desk Mate, but, to give you an idea of 
why some features work the way they 
do. I think that no matter why you 
bought a computer, you will still find a 
task that Desk Mate will handle excel- 
lently. While I use my 1000 mostly for 
word processing and programming, and 
the “Text” feature doesn't contain all 
the features I need, I still find the 
spreadsheet as well as the Calculator 
and Filer meet most of my needs, and 
I make heavy use of the “Calendar” 
feature. In addition, I consistently log 
on to CompuServe, Delphi and the 
other databases using the “Telecom” 
function. 

The above leads me to the major 
advantage of Desk Mate and integrated 
software. With one purchase, you get 
the major applications needed to get a 
day's work done efficiently. In other 
words, you get the tools needed to 
increase your productivity. It would be 
an expensive proposition to buy all the 
dedicated software needed to achieve 
the variety of tasks that Desk Mate 
makes available. Imagine the cost of 
buying a word processor, spreadsheet, 
telecommunications package, calcula- 
tor, database and the others that make 
up DeskMate. You would need hun- 
dreds of dollars — and some new 
shelves for all the manuals. 

Desk Mate allows you to get a grasp 
on your own needs beyond the tasks you 
may already be planning to perform. 
While you may have bought a computer 
to write or perform calculations, it 
would be a shame to exclude yourself 
from the other tasks a computer can 
perform because of the high cost of 
dedicated software. With Desk Mate, 
you can perform those other tasks 
without the extra expense. 

Additionally, you can find out more 
about what a computer can do and the 
features you need in your dedicated 
programs before you buy. I know many 
people who bought a computer to use 
for one specific task, but when they got 
an integrated package or talked with 
friends, they found they could perform 
tasks that were valuable to them and 
valuable to making better use of their 


machine. For example, you can log on 
to a BBS or information utility and find 
out how to make better use of Lotus 1- 
2-3 without having to spend several 
hundred dollars for a dedicated tele- 
communications program. 

To sum it up, each section of Desk- 
Mate has something to offer everyone. 
Don't look at what Desk Mate can't do 
with your specific needs but how Desk- 
Mate can add to your overall computer 
power and productivity. 

If you’re like I am, you bought a 
computer to run a particular piece of 
software, and now you've found that it 
can do much more than you planned. 
Desk Mate will give you an idea of what 


you can achieve with your computer. 
So, if you find that you would like to 
know more about spreadsheets or tele- 
communication or any other feature of 
Desk Mate, just stick with PCM and this 
column. We're going to cover the whole 
range of possibilities using Desk Mate 
from word processing to auto-dialing 
and using your computer to host other 
computers. I'll cover the technical as 
well as the general aspects of Desk Mate 
and try to answer your questions, pass 
on tips from other readers and put 
Desk Mate through the paces. Just as 
DeskMate is an integrated software 
package, we'll integrate many subjects 
right here in PCM. [PCM] 


¢ CUSTOM SOFTWARE 
S гог your MODEL 100 or 
NEC PC 8201A 


CBUG 


CBUG is the ultimate debugging utility for your lap computer. Requires less than 
3K RAM. 10096 machine language. Features include: 


* Instruction Step 

* Call/Instruction Step 
* Zero/Fill Memory 

* Load Data 

* Alter Registers 


* Dump Memory & Registers 
* Search/Replace 

თ HEX math (+ & —) 

* Decimal — HEX conversions 
* Display in HEX or ASCII 


RENUMBER 


The utility you've been waiting for! Now you can renumber your BASIC 
programs IN PLACE! This powerful, 10096 machine language program is 
relocatable to any convenient place in memory. Requires less than 3K RAM. 
Renumber all or part of a program. You specify line numbers and increment. 


$24.95 


LET'S PLAY MONOPOLY* 


It's you against the computer and the computer is a tough competitor. Super fast 
machine language graphics display the whole board at all times. The computer 


makes all its own decisions. You're really going to love this game. 


$29.95 


ASSEMBLER 


A powerful 8085 assembler for your lap computer. Recognizes all the standard 
pseud-ops. Immediate data may be in decimal, hex or ASCII. Relocatable to any 
convenient place in memory. Several built-in Macros make your programming 
easier. FASTI Written in 10096 machine language and requires less than 3K RAM. 


$32.95 


MELODY MAKER 


А musical program generator. Use simple cursor controls to enter sheet music. 
Melody Maker writes a program to play the song. You can even use Melody 


Maker to add musical routines to your own programs. 


$19.95 


CUSTOM SOFTWARE 
9 1308 Western 9 Wellington, Kansas 67152 9 
316/326-6197 


outside the U.S., 


k 23 
VISA 
жараны: 


Please include 51.00 for shipping. For orders 
include sufficient postage 
for airmail delivery. U.S. funds only. 


MasterCard.. 


“Monopoly ıs a trademark of Parker Brothers 
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This BASIC program turns your 


Model 100 into a BBS host 


Host Your Own Network 
with Your Model 100 


66 Y joking! Run a BBS on 
a Model 100? Who ever 
heard of such an idea!" 

Those are the initial reactions of most 
people in Spokane until told that for the 
last nine months I've been running a 
very successful BBS on a 24K Model 
100 in conjunction with an auto-answer 
modem and a separate phone line. It's 
a fantastic way to keep in touch with 
friends and associates and not have to 
play "telephone tag" with one another 
in order to do it! 

The Model 100 has to be the most 
capable and dynamic little computer to 
come down the pike in a long, long time; 
it is only natural that it be considered 
for a BBS system! This article will 
describe just how to go about setting up 
your system. As for me, all I can say is 
that telecomputing has become so easy 
and so much fun that I've had to buy 
(Chuck Buchanan is a self-admitted 
"computer addict" who uses micros in 
both work-related contracts manage- 
ment and hobby applications. He deve- 
loped a passion for programming in 
BASIC with his first computer [a Color 
Computer] four years ago.) 
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a second Model 100 for general use, 
and I am now using the first one exclu- 
sively for full-time BBS operations. So 
beware! 


What It Is 

The network, called *SoftMail," is a 
full-featured BBS that allows up to 30 
members to “message” each other day 
and night. It features full password 
access and message privacy; while new 
callers may simply enter МЕМ as the 
password and be directed to an area 
where they may leave an inquiry, reg- 
ular members have three tries to give 
their own private password in order to 
log on. 

Once successfully “іп,” callers have 
the ability to check for messages, to 
review the address list, to edit and send 
messages (with automatic line wrap), to 
receive mail, to page and enter a "chat 
mode" with the SysOp (that's you, the 
system operator) while online and to log 
off with an accounting of how long they 
were connected. A help feature is also 
included, which will use the text file you 
may write and place in RAM as 
ჩLL012.00. 


Ву Chuck Buchanan 


The menus within SoftMail are easy, 
self-explanatory and only require touch 
selection. For the SysOp, there are extra 
features. Four function keys allow him 
or her to enter chat mode at any time 
with the caller, interrupt program exe- 
cution and give a "host off" message, 
provide a warning that the system will 
go down in two minutes and simply 
have the screen show who is online. 

SoftMail keeps a full record of who 
called, the date and time, how long they 
were online and what messages they 
retrieved, sent and deleted. This record, 
called SYSDFZ.DO, can be reviewed 
remotely by the SysOp. In addition, the 
program features full error trapping 
and will even "kick" persistent error 
makers off the system! 

During menu input, SoftMail will 
convert lowercase to uppercase so that 
there will be no errors in command or 
file recognition. In the event of a 
*sleepy" caller who dawdles more than 
two minutes without doing anything, 
the BBS will even hang up automati- 
cally and reset itself. 

Unlike other remote BBSs, which 
allow the caller's keyboard to duplicate 





САР5 
LOCK 


SHIFT 


the host's console, SoftMail treats 
external input/output as a remote file, 
and the BASIC BBS program stays in full 
control at all times, with the host's LCD 
screen only showing significant menu 
selections and input as the caller writes 
messages. 


But It's So Small 

Now you ask, why network with a 
100? 

There are a number of reasons why 
the 100 is a perfect choice: 
€ Because it has no moving parts to 
wear out, no disks to replace; all mes- 
sages (and the hidden log file SYSDF) are 
maintained in RAM, designated as BBS 
files by the suffix 2.00 
€ Byusingthe INPUT$ command for all 
input, the system is able to avoid sab- 
otage or interruption through a hostile 
CTRL-C or BREAK command invoked by 
a caller. 
€ The size of the 100 makes it highly 
suitable for applications which need a 
full BBS without wanting to have to 








Pasta 





ден. 


endure the complexity and size of other 
systems. 

€ Because everything is in RAM, it is 
instantly accessible for review by the 
SysOp. Responses can be written from 
the host side by simply using the text 
program (inserting carriage returns) 
and labeling the messages with titles 
that the BBS can recognize. 

€ Since it is a non-mechanical system, 
there is no need to fear a “runaway” 
computer — disk drives smoking into 
oblivion. Using the IPL feature, the 
BBS can even survive power outages. 
€ Finally, it's just plain fun to have so 
much going on so simply in such a 
compact little package! 


Getting It Together 

Type in the program and save it as 
BBS.BR. 

Using IPL, instruct your 100 to exe- 
cute BBS in case of power interruption. 
Create a message similar to that in 
“Message 1” and save it to RAM as 
RLLO12.D0. This is the message that 


REAK 


PRINT Pausa 


Radie Лаек 


TRS-BO 


MODEL 100 
PORTABLE 
COMPUTER 






will be listed to the caller if he or she 
selects HLP from the menu. It will also 
be listed from within the BBS directory 
(CHK) and may be retrieved in that 
manner as well. 

Be sure to set up your caller and 
password files in lines 1000 through 
1004, being sure to follow the desig- 
nated format (a two-digit number for 
the member, one space, the member’s 
name, followed by a comma and then 
the three-letter password for that 
member). You may also wish to adjust 
GOSUB 8@ to include the commands 
your particular modem requires to 
disconnect the phone when you log off 
or receive a “denied access” message. 
Furthermore, Program Line 4 is op- 
tional and only serves to initialize a 
modem; you may want to delete it if you 
don’t need it. 

Connect an auto-answer modem to 
the RS-232 port. Important: set your 
modem for non-verbose, “quiet” mode 
with no echo and with auto-answer 
enabled. Plug everything in and run the 
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program. After а few seconds, you'll 
hear a beep, the screen will clear, show 
the current files, state Awaiting at:, 
the setup (or reset-up) time, give the 
current memory space remaining and 
(once you’ve had the first caller) show 
the name of the last person online. 

When someone calls (try it) they'll be 
prompted to press an asterisk (*). This 
gets things going — the host screen will 
say BUSY and the four function key 
options will be displayed. They will then 
be asked for their password and will be 
sent to the main menu. A special mem- 
ory peek technique allows for a review 
of BBS-related mail. When the caller 
presses C for checking mail, he or she 
will be shown the messages that are BBS 
files. 

The program only displays messages 
(files) with the flag of %%%992.00. BBS 
messages always follow the format of 
the left three characters matching the 
caller’s name or initials and the next two 
characters being digits representing the 
message number. The caller never sees 
the 2.00, as it is always added discretely 
by the system. 

The special log file SYSDFZ.DO is not 
displayed, but the SysOp always knows 
it’s there, and can retrieve it from a 
remote location (and erase it to restore 
memory) at any time. If the thought of 
a RAM-based log makes you nervous, 
simply hook up a printer and change 
Line 11 to: 


11 OPEN “LPT:” FOR OUTPUT AS 4: 
RETURN 


The SysOp file symbols are: “I” — 
who called and when; “С? — messages 
retrieved; ‘0’ — erased or >” — sent and 
*z' — log off with usage time. An nle 
entry indicates a denied access situa- 
tion, and time means the caller got 
disconnected by the BBS due to overdue 
input. A ‘?’ denotes a BBS error re- 
corded, and a ‘[’ indicates that the 
program incurred the same error twice 


Message 1, Sample ALL@1 help file 


Welcome to the Model-100 EBBS, 
providing 24 Hour/Day Communica- 
tions Networking!! 


SoftMail is now running ona 
< TRS Model 100 !! > 


For MENU Selections you need only 
PRESS the KEY; do NOT use <enter> 
unless entering Mail Titles or 
inputting numbers. 


Use Сег1-5 to Stop Displau: 
Сегі-0 to Start again. . . 


Throughout, the RT Keu <8> func- 
tions as an ESCAPE Key - 


and started all over. This will probably 
only happen if some "clever" caller tries 
to zap you with a CTRL-Z. 

Callers may write to anyone but can 
only retrieve their own messages or 
those addressed to "all." The SysOp, 
however, can retrieve and delete any- 
thing. Furthermore, while anyone can 
originate an “аП” message, only the 
SysOp can delete one. 

The edit features of the BBS are fun 
— play with them! They will allow a 
line-by-line review, adding a line, edit- 
ing a portion of a line and deleting a 
line. Once a person elects to return to 


The listing: 


1 REM Greetings! 


1200а/рсп 
2 REM ВВ5100 Program <с> 1984 by Chuck 


You пау press <@> at any prompt 
and you will go to the PREVIOUS 
Menu. From the Top Menu, the <e> 
will log you Off. 

Use <Chk> to see if you have any 
MAIL; if so, the Title’s LEFT 3 
Letters will match those of your 
Name or Initials. 

Enter that plus the two Digits. 


Please be sure to Log Off before 
hanging up. . . 


Happy Telecomputing !!! 
Sincerelu, 


Your Friendly Local SysOp! 


the main menu, they are asked if they 
want to send the message. They may 
answer either way; if they do not send 
it immediately, they may go back down 
to the work desk at a later point and 
send the message then, or they may start 
another message. 

If you have a Disk/ Video Interface, 
you may wish to expand the BBS to 
include other services, related programs 
which could be on disk and chained 
online. For example, my current BBS 
features access to any number of Ad- 
venture games which callers may dial up 
and play. LI 


(leave this line in) v. 


Buchanan, Spokane, МА 509-624-0262 or C 


IS 72335 1301 


4 CLOSE:CLEAR15@09:MAXFILES=&:ONERRORGOTO 
60:GOSUB10@:GOSUB39:PRINT#1,"AT":GOSUB35: 





TANDY 200 24K EXPANSION MODULES $99 


Ш 8K MEMORY MODULE $29 


CALL FOR 
LATEST PRICE 


For your Model 100 & NEC PC-8201. Field proven (over 30,000 in use), factory tested and fully supported. 
Portable Thermal Printer 


SIDESTAR $399 


128K RAM DISK CARTRIDGE 


For the Starlet NEC PC-8401 


SIDECAR 128K RAM CARTRIDGE $259 


Plugs into side of the NEC PC-8201 


Z2BunPLE 
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420 Constitution Ave. 
IMmCOMPUTING Camarillo, CA 93010 


TTXpress MODEL 1280 $139 


Battery opperated, 2.2 Ibs., 8%” paper, 40 cps., parallel. 


FREE SHIPPING, HANDELING & INS. FOR CONT. USA. 
Orders shipped UPS next business day. 30-day satisfaction, 


money back guarantee. We accept Visa, M/C & Amer. Exp. 





Checks held 18 days. 


(800) 732-5012 


(805) 987-4788 (in Calit.) 


PRINT#1,"ATS2=92S0=2" :GOSUB35:G0SUB39:GO 
50880 

5 CLOSE:BEEP:CLEAR1500:POWER CONT:MAXFIL 
ES=4 : ONERRORGOTO6@ : GOSUB1@ : ONKEYGOSUB88 , 
120,125,128 

6 KEYON:DEFINTA-Z:DEFSTRJ,W:DIM М(32),М5 
(32) ,P$(32) :MN=19+VAL(RIGHTS (TIMES ,2)):G 
0Т0135 

8 IFZD-450THENERROR6QELSEZT-PEEK (65414) 
: IFZT-QTHENZD-ZD-*1:GOTO8ELSEPRINT"« ";:K 
S=INPUTS$ (1,2) : IFKS=CHRS (8) THEN8ELSEZD=9@ : 
PRINTKS : LFASC(KS )>96ANDASC(KS$ )<123THENKS 
-CHR$ (ASC (K$) -32) : RETURNELSERETURN 

9 FORZ-1TOLEN(TK$):IFASC(MIDS$(TK$,Z2,1))» 
96THENMID$(TK$,Z,1)-CHR$(ASC(MIDS(TK$,Z, 
1))-32):NEXT: RETURNELSENEXT : RETURN 

10 GOSUB11:OPEN"COM: 38NLE"FOROUTPUTAS1:0 
PEN"COM: 38NLE"FORINPUTAS2 : RETURN 

11 OPEN"SYSDFZ.DO" FORAPPENDAS4 : RETURN 

13 PRINT#1,:PRINT #1,"* press asterisk < 
*> to go on":PRINT"« ";:K$-INPUT$(1,2):P 
RINTKS : LFK$<>"*"THEN13ELSEPRINT#1,"> Bra 
νο !":PRINT#1, : PRINT#1, : RETURN 

17 PRINT#1, :PRINT#1,"* select «Y» or <N> 


18 GOSUB8: IFK$S="Y"ORKS="N"THENPRINT#1 , : P 

RINT#1, : RETURNELSE17 

20 PRINT: PRINT: PRINT"S$ "K$" Menu": PRINTS 

TRINGS (39,95) : PRINT: RETURN 

25 GOSUB33:PRINT#4,"# "LEFT$(UIS$S,3)" "DA 

Y$" "LEFTS (TIMES , 5) : RETURN 

26 PRINT#4,"< "EB$:RETURN 

27 PRINT#4,"> "ID$:IDS="":DE=DE+1:RETURN 

28 PRINT#4,"@ "EB$:DE-DE-1:RETURN 

29 PRINT#4,"= "LEFT$(UIS,3)"-"K$" "LEFTS 

(DATES ,5)" "MM(3) : RETURN 

30 PRINT#1,STRINGS$ (31,61): RETURN 
PRINT#1, STRINGS (31,95) : RETURN 
PRINT#1 , CHR$ (7) : RETURN 
FORZ-1T030 : NEXT: RETURN 
FORZ=1T0190@ : NEXT : RETURN 
FORX=1T08 : PRINT#1, : NEXT: RETURN 

Ø PRINT#1,"* 30 Lines by 32 Chars Мах": 

GOSUB39:PRINT&1,"* Use the AT Key <@ to 

QUIT": PRINT#1, : PRINT#1, 

41 IFLZ=31THENPRINT#1, :PRINT#1,"* buffer 

full": GOSUB36 : LZ=LZ-1:A=LZ: RETURN 

42 IFLZ=29THENGOSUB33 : PRINT#1, : PRINT#1," 

* only 10 lines left":PRINT#1, 

43 KS$=MID$(STR$(LZ) , 2) : IFLZ<1QTHENKS="9" 

+K$ 

44 PRINT#1,LEFT$(K$,2);:GOSUB50:W(LZ)=TK 

$: IFK$="@"THENA=LZ:RETURN 

&6 IFLEN(W(LZ-2))<3ANDLEN(W(LZ-1))<3ANDL 

EN(W(LZ))<3THENLZ=LZ-1:A=LZ:RETURN 

48 LZ=LZ+1:GOTO41 

50 K$-"":TK$-"":PRINT41,"» ";:PRINT"4 "; 

52 IFZD-450QTHENERROR6QELSEZT-PEEK (65414 

) : IFZT-0THENZD-ZD--1 : GOTO52ELSEKS$-INPUTS ( 


1,2) :ZD=@ : IFK$=CHRS (8) ANDLEN (TKS )>@THENP 
RINT#1,K$" "K$;:PRINTK$" "К; : TKS=LEFTS ( 
TKS , (LEN( TKS) - 1) ) : GOTO52 

54 TKS=TKS+K$ : IFK$=CHR$ (13) ORKS="@"THEN5 
8 

55 IFLEN(TK$)»28ANDKS-CHR$ (32) THEN58 

56 PRINT&1,K$;:PRINTK$; :GOTO52 

58 PRINT#1, : PRINT: TKS=LEFTS (TKS , (LEN(TK$ 
)-1)) : RETURN 

6% PRINT: BEEP: PRINT"? Error"ERR"in"ERL:P 
RINT: IFERR=6QTHENGOSUB39 : PRINT#1,"* over 
due input...":PRINT#1, :KS="time":GOSUB75 
: GOSUB80 : GOSUB29 : RESUME1 

61 IFERR-FKTHENFK-500 : CLOSE: GOSUB1@: PRIN 
T#1,:PRINT#1,:PRINT#1,"* CLOSED ERROR LO 
OP": PRINT#4,"[ "LEFTS$(UIS,3):PRINT#1,:GO 
SUB75 : GOSUB8@ : GOSUB29 : RESUMEL 

62 IFERR-520RERR-55THENCLOSE3 : GOSUB11: PR 
INT#1,:PRINT#1,"* note not found as spel 
led":EB$-"":GOSUB33: PRINT#1, :RESUME155 
63 IFERR=54THENFK=54 : CLOSE: GOSUB19 : RESUM 
E 

64 CLOSE: GOSUB1@: PRINT#1, : PRINT#1,"* bbs 
error #"ERR"in "ERL:PRINT#4,"? BBS #"ER 
R"/"ERL: GOSUB33: PRINT#1,"> re-log necess 
ary": PRINT#1, : FK=ERR: Y=% : RESUME137 

65 PRINT#1,:PRINT#1,"* thank you, "UI$:G 
OSUB75 : GOSUB89 : GOSUB29: GOTO135 

75 A$(2)=TIME$: PRINT#1,"* Log Off at "A$ 
(2) :PRINT#1, :PRINT#1,"* Elapsed time:";: 
IFA$(1)-""THENMM(3)-9 : GOTO7 8ELSEFORZ=1TO 
2:MM(Z)-VAL(MIDS$ (A$(2) ,4,2)) :NEXTZ 

77 IFMM(2)-MM(1)THENMM(3)-1ELSEIFMM(2)»M 

M(1)THENMM(3)=MM(2) -MM(1)ELSEMM(3)-(60-M 

M(1))+MM(2) 

78 PRINT#1,MM(3)"Minute"; ; IFMM(3)<>1THEN 
PRINT#1,"s" 

79 PRINT#1," "RETURN 

89 BEEP: PRINT"* hangup": PRINT#1, : PRINT#1 
,"* please hang up now...":PRINT#1, :PRIN 

T#1,"> Off \\\"; :GOSUB36:GOSUB36: PRINT# 
1,"\\\"; :GOSUB36: PRINT#1 , "ATH" : CLOSE: GOS 

UB1%: RETURN 

85 PRINT#1,:PRINT#1,"* Sysop Chat Mode": 

PRINT#1,:PRINT#1,"* now paging Sysop .. 
":PRINT#1, : PRINT#1," ";:FORX-1TO1Q:BEEP: 

GOSUB36 : PRINT#1 ,X; : NEXT: PRINT#1, : GOSUB39 
: PRINT#1, : PRINT: BEEP 

86 PRINT#1,"* if SYSOP doesn't answer":P 

RINT: PRINT#1, " in next TEN SECONDS the 

n":PRINT#1," he's not in attendance":PR 
INT"* key 1 NOW !":PRINT#1,"* wait 19 se 

c,.":FORX=1TO49@@ : NEXT: GOTOL55 

88 BEEP:GOSUB33: PRINT#1, :PRINT#1,"* Hell 
o, "UIS" 11 This":PRINT "* now in Chat 
with "UI$:PRINT:PRINT#1," 15 SYSOP... 

You still there ?":PRINT#1, 

90 GOSUB33:PRINT#1,"* your entry.. press 
<enter> to":PRINT#1," send or <@ to e 
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xit Chat":PRINT£Zl1,:PRINT 

92 GOSUB5Q:IFKS-CHRS$(13)THENPRINT:PRINT: 
GOTO199 

94 IFKS="@Q"THENPRINT: PRINT"* exited...": 
GOTO115 

96 GOTO92 

100 BEEP: PRINT#1,:PRINT "κ your turn «en 
ter or @>":PRINT:PRINT#1, 

102 GOSUB1@5 : [FKS=CHR$ (13) THENPRINT#1, :P 
RINT: GOTO9G 

103 IFKS="@"THENPRINT: PRINT#1, :GOTO115 
104 GOTO192 

105 KS="";TKS="";PRINT"> ";;PRINT#1,"$ " 


107 KS=INPUTS (1) : IFK$=CHRS$ (8) ANDLEN (TKS ) 

»ÜTHENPRINT&1,K$" "K$;:PRINTKS" "K$; :TKS 

-LEFT$ (TK$ , (LEN(TK$) -1) ) :GOTO197 

108 TK$-TKS-4K$:IFKS-CHR$(13)ORK$-"Q"THEN 

112 

199 IFLEN(TKS$)>28ANDK$=CHR$ (32) THEN112 

110 PRINT&1,K$;:PRINTK$; :GOTO197 

112 PRINT*X1,:PRINT:RETURN 

115 K$="":TK$="":;PRINT#1, :PRINT#1,"* bye 
"UIS:PRINT#1,"> Please be sure to Log O 

ff":RETURN 

120 PRINT#1,:PRINT#1,"! HOST OFF...":GOS 

UB89:CLOSE:CLS:PRINT"* System off at "TI 

MES : GOSUB36 : MENU 





Our new Interface Card lets you 
connect your MS-DOS computer to the 
outside world to control and monitor 
devices and instruments 


The BG-Board interface System provides buffered access 
to the control, data, and address buses of the computer. 
Specially designed CableCards orient the signals to and 
from the BG-Board and many popular computers. The new 
BG-119 CableCard brings the MS-DOS machines into the 
fold with the previously available CableCards for the Model 
III/4, Apple ІІ, Commodore 64, and VIC-20. Our new catalog 
describes the system and more than 100 books on inter- 
facing, electronics, and personal progress plus some 
scientific and utility software that can simplify data analysis 
and computer performance. Write or call for it and the 
special sale now in progress. 703-651-3153 



















PUTTING 
HANDS 
AND 
MINDS 
TOGETHER 







Group Seehnology, Lid. 


P.O. BOX 87 * CHECK, VIRGINIA 24072 


Trademarks - MSDOS, Microsoft. Apple ІІ, Apple Computer, Inc. 
Commodore 64 and VIC-20, Commodore Business Machines, Inc. 
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125 BEEP:GOSUB39:PRINT#1,"* WARNING: Sys 
tem Going":PRINT#1," DOWN in Two Minute 
s":PRINT#1,:PRINT"* warning done":RETURN 
128 PRINT:PRINT"> User: "UI$:PRINT:RETUR 
N 
135 A-9:N-9:Y-0:LC$-UIS$:UI$-"":ID$-"":RC 
=FRE("") :RC=9:A$(1)="" 
137 CLS:FILES:PRINT: PRINT" awaiting at: 
"TIMES: PRINT" free memory: "FRE(@) : PRINT 
" last online: "LC$:KS=INPUTS(1,2):GOSU 
B13:PRINT:PRINT"* BUSY !":BEEP: PRINT: PRI 
NT: GOSUB33 
139 PRINT"Chat Stop Caut Who?":PRINT:RES 
TORE19@@ : FORX=1T032 : READNS (X) , PS (X) : NEXT 
141 GOSUB39:PRINT#1,"* Welcome to the BB 
5-10) !!":GOSUB3@:PRINT#1,"> Please Log 
on:":PRINT#1,:PRINT#1,"* if NEW, use NEW 
as Password": PRINT#1, : PRINT#1, : PRINT#1, 
"* enter password:" 
143 GOSUB147: PRINT#1, : IFJ="NEW"THEN3ØQEL 
SEFORX=1T029 : IFJ-P$ (X) THENUIS=MID$ (N$ (X) 
,4):X229:G0T0O153 
145 NEXTX:Y-Y-1:GOSUB33:PRINTZ1,"* acces 
s denied --"Y:IFY>2THENPRINT#1, : PRINT#1, 
"* log-on error . " : GOSUB33 : GOSUB8@ : MM( 
3)=9: UI$="nle" : GOSUB29 : GOTO1L35ELSEGOTO14 
1 


147 J="":PRINT#1, :PRINT#1,"> "; 


: FORZ-1TO 


LOW LOW PRICES 
on 
Hard Disk Drives 
Floppy Disk Drives 
Star Printers 
Anchor Modems 
Diskettes 


Color Computer Dr 6 


2 $7995 
$129.95 









Single ps&case 544.95 
Color Computer Controller (J&M) 


Dual ps & case 












TANDON, МР! OR TEAC DRIVE | SINGLE SIOED 40 TRACKS SPEED SMS ТАК TO TRK UP 
POWER SUPPLY and CASE, TWO ORIVE CABLE WITH ALL GOLD CONNECTORS | 
სა J8M CONTROLLER MANUAL and ΟΟΟυΜΕΝΤΑΤιΟΝ..................... $22095 |. $ SALE 

ν 





E 
SU ο» 
οὐ p.i PANASONIC 1/2 HEIGHT DOUBLE SIDED OOUBLE DENSITY ORIVE 500Ж untormatted 





jt 








ST A POWER SUPPLYand CASE, 2 DRIVE CABLE WITH ALL GOLO CONNECTORS ке 
28м CONTROLLER. MANUAL and DOCUMENTATION ,.................... §39095.,..., ЭУ SALE! 
ТАКЕ ADDED SAVINGS ОМ TWO DRIVE SYSTEMS 
DISKETTES with free librarycase............. PE... $1795 
Unadvertised Specials ..........................8 Ш Е... ....$Call 
Drives cleaned aligned & tested „.....52995 





TECHNICAL STAFF ОМ DUTY PLEASE CALL FOR ASSISTANCE 
at 
А 


CALL US ТОРАҮ!! (617)234-7047 *DEALER INQUIRIES INVITED 
^f ORDER TOLL FREE 1-800-635-0300 (617) 234-7047 


c | TRUE DATA PRODUCTS 
195 Linwood Street, P.O. Box 546 Wewelcome 
I ქ Linwood, Massachusetts 01525 ‘Visa Master Charge Se --- 


3 (617) 234-7047 * Checks allow 2 weeks for clearing 
HOURS MON SAT 9 6. EST 






“СОО Ades200 












3:GOSUB8:PRINT#1,Z;:J=J+K$:NEXTZ:PRINT#1 
, RETURN 

153 PRINT#1,:PRINT#1,"* Log On: "DAYS" " 

DATES" "LEFT$(TIME$,5):PRINT#1, :PRINT#1 
, :PRINT#1,"* Welcome, ";UI$;" !!":GOSUB3 

6: GOSUB25:A$(1)=TIMES : PRINT#1, : PRINT#1," 

ж <Ctrl-S>=Hold <Ctrl-Q>=Flow":PRINT#1, 
155 K$="Main" :GOSUB2%: GOSUB39 : PRINT#1, "х 
SoftMail-19% EBBS: "DAYS" "LEFTS(TIMES 
,5):GOSUB32: PRINT#1,"* select first lett 

er": PRINT#1, : PRINT#1,:PRINT#1,"> Chk Get 
Snd Dwn ТІК Hlp Off "; 

157 GOSUB8:Z-INSTR("CGSDTHOQ" , K$) : IFZ-QT 

HEN157ELSEGOSUB39:0NZGOTO1690,170,180,200 
,95,159,065,65 

159 EBS="ALL@1" :GOTO174 

160 DE=%:PRINT#1,"* Current Messages:":G 

OSUB3Q : PRINT#1, : FORZ!=63939!T064139STEP1 
1:B$-"":IFPEEK(Z!)-QTHEN166 

162 FORZI-3TO10:B$-B$4CHR$ (PEEK(Z! ZI) ) : 

NEXTZI:IFINSTR(B$,"ZDO")«1THEN166 

164 IFLEFTS(BS ,5)<>"SYSDF"THENPRINT#1, " 
"LEFT$(B$,5)"  ";:DE-DE*1:IFDE-3ORDE-60 

RDE=90RDE=12THENPRINT#1 , 

166 NEXTZ! : IFDE=@THENPRINT#1,"* none" 
168 PRINT#1, : PRINT#1,:PRINT#1,"* Mem: "FR 

Е(0)" Str: "FRE(A$)" Mgs:"DE:GOSUB3Q: PRIN 

T#1,"* Copyright 1984 C. Buchanan":GOTOl 

55 

170 PRINT#1,"* Get Mail:":PRINT#1, : PRINT 

#1,"* enter TITLE or «enter» to abort":P 

RINT#1, : GOSUB5@: IFLEN (TKS )>3THENGOSUB9 

171 EB$=LEFTS (TKS , 5) : IFLEN(EBS$)<5THEN155 

ELSEIFLEFTS(EB$ , 3)="ALL" THEN174 

172 IFLEFTS (EBS ,3)<>LEFTS$(UIS$ , 3) ANDLEFTS 
(UI$ ,3)<>"SYS"THENGOSUB33 : PRINT#1, : PRINT 

#1,"* that's not yours !!":PRINT#1, :PRIN 

Т#1, :GOTO179 

174 CLOSE4:GOSUB39:PRINT#1,"* now gettin 

g "EBS$:OPENEBS+"Z.DO"FORINPUTAS3 : PRINT#1 
, :GOSUB32: PRINT#1, 

175 IFNOTEOF(3)THENLINEINPUT#3 ,W: PRINT#1 
,W:GOSUB35 :GOTO175 

176 CLOSE3:GOSUB11:GOSUB26:GOSUB32: IFLEF 

T$ (EBS ,3)<>"ALL"ANDLEFTS (EBS , 3)<>"Q:D"TH 

ENPRINT#1, :PRINT#1,"* TOSS "EBS" ?":GOSU 

В17:ІЕК$="Ү"ТНЕМСІОЅЕ: KILLEB$+"Z.DO":GOS 

UB1%: PRINT#1,"* deleted" :GOSUB28 

178 EB$-"":GOTO155 

180 IFDE<1L5ANDFRE(%)>14GQ@THENPRINT#1, : PR 

INT#1,"* Send Mail:":GOSUB196: IFKS="Y"TH 

ENRG=@ : GOTOL84ELSEGOTO155 

182 PRINT#1,:PRINT#1,"* sorry, BBS tempo 

rarily full":GOTO157 

184 PRINT#1,"* review address book ?":GO 

SUB17: IFK$="Y"THENPRINT#1, : PRINT#1,"* SE 





Super 
Utility 


for PC/MS-DOS™ 


Fixed/Floppy Disk-Tools for IBM PC™, XT™, AT™, 
Tandy 1000, 1200, 2000 and other compatibles. 


Data file recovery, disk exploring, 
zapping, and | MUCH more! 


Accidental deletions and disk directory problems can happen to 
anyone at anytime... a power spike, fingerprint, speck of dust, 
hardware problem, or simply typing DEL *.* in the wrong sub- 
directory can destroy critical data in a moment without warning. 
Therefore we introduce Super Utility for the PC - an easy to use 
disk utility containing many functions sorely needed in today's 
PC/MS-DOS computing environment. It's really great! 


With SU/PC you can restore damaged or deleted files using two 
different methods (one very easy, the other a bit tougher). Even 
clusters of an erased file assigned to another file can still be 
restored, unless the user has physically written over every byte of 
the original data (most applicable with word processing files). 


In addition to file repair and recovery, Super Utility provides 
sector verify, sector editing, modification of sectors in Нех or ASCII, 
ease of renaming of files and setting their attributes (lock and 
unlock files, etc.), string search, copying sectors to a file, diagnostic 
sector checking, mapping of the FAT table of a file or an entire 
drive, visual graphics pertaining to your system, and full directory 
and sub-directory editing without endless menu-hopping - all in 
one program. Want to change the name of your sub-directrory 
without copying all your files to a new one? Just retype a new name 
over the old one with SU/PC! The sector display mode displays all 
512 bytes on-screen at one time and allows you to fully explore 
your disks. SEARCH and CHANGE are nice here too! Will find any 
occurance of a byte or string on your disk. Compatible with DOS 
versions 2.0 - 3.1 on most systems. Some computers may require 
the use of PC-DOS. Color, composite, or monochrome video are 
supported. A great tool for fixed disk users as well as floppy. Also 
compatible with IOMEGA's Bernoulli Box™ storage device (soon to 
be distributed by Tandy as the Disk Cartridge System). Easily the 
most POWERFUL PC/MS-DOS disk utility available today. Please 
do not confuse the MS-DOS version of Super Utility with the 
TRS-80™ version, Super Utility for MS-DOS is NOT SU» 
from the TRS-80 "ported over". SU/PC is a totally new 
program that fills the gaps that PC users have most need of and 
have asked us for. It's aimed at the beginner, the "office user", 
hobbiests, students of the PC, or programmers alike. 


So, why not be certain about the safety of your data (and your 
peace of mind) when you can have Super Utility/PC disk 
insurance right on hand at an unusually low price? Make your new 
computing life easier, more fun, and knowledgeable all at the same 
time. Unprotected media. 


* Introductory Offer • 


Super Utility/PC 


шу $89.95 


-POWEA3XOrc- 


17060 Dallas Parkway, Suite 114 
Dallas, Tx 75248 * 214/733-4475 


Prepaid or charge card orders (only) include free UPS shipping to US addresses! Blue 
label, COD, or over-night shipping available at extra charge. Visa»MasterCard 
accepted. Canada, please $3; airmail. Other countries add $15 for airmail. 
Foreign orders, please use Charge Cards ONLY. Checks not drawn on US banks not 
accepted. Texas residents must add appropriate sales lax! 
Requirements: ІВМ РС or compatible running PC/MS-DOS 2.x-3.x, minimum of 128К 
memory, and at least one disk drive. PC-DOS may be required for use. 

IBM, PC, XT, & AT are registered trademarks of International Business Machines 
Corp. MS is a reg. trademark of Microsoft. TRS-BO is a reg. trademark of Tandy Corp. 
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ND TO:":PRINT#1,:FORX=1TO32:PRINT#1," " 
N$ (X) : GOSUB35 : NEXTX 

186 PRINT#1,:PRINT#1,"* elect 1-32:":GOS 
UB59:RC-VAL(TK$) : IFK$-"(aà" THENT55ELSEIFRC 
<10RRC>32THEN186ELSEIFRC=31THENRC=9@ : GOTO 
184ELSEIFRC-32THENRC- : GOTO155 

188 PRINT#1,"* writing to: ";MIDS(N$(RC) 
,4) : IDS2MID$ (NS (RC) , 4, 3) -HMIDS (STRS$ (MN) , 2 
):W(1)2"* from: "+UI$:W(2)=" "DA 

Ү$+" "+LEFTS$ (DATES ,5)+" at "+1ЕЕТ9(ТІМЕ$Ҙ 
,5):W(3)2" ":LZ=4: GOSUB4G : GOTO205 

196 IFID$<>""THENPRINT#1, : PRINT#1,"* CAU 
TION: Abandon "ID$" ?":GOSUB17:IFK$-"N"T 
HENRETURN 

198 К$="Ү" : RETURN 

200 IFIDS=""ORIDS="_"ORID$="Z"ORID$="z"0 
RA=@THENPRINT#1, : PRINT#1,"* nothing ther 
e":GOTO155 

205 PRINT41,:K$-"Work":GOSUB20:PRINT£1,: 
PRINT#1,"* Work Area Message: "ID$:PRIN 
T#1,"# lines: "SA:IPRINTZ1,:PRINT41, "> 
Read Edit Menu "; 

207 GOSUB8:Z-INSTR("REMQ" , K$) : IFZ=@THEN2 
Q7ELSEPRINT#1, : PRINT#1, :ONZGOTO219@ , 259, 2 
20,220 

210 PRINT#1,:PRINT#1,:FORX=1TOA:PRINT#1, 
W(X) :GOSUB35 : NEXT: GOTO2@5 

220 PRINT#1,"* Send "ID$" ?":GOSUB17:IFK 
$="Y"THEN222ELSE155 

222 PRINT#1,:PRINT#1,"* now sending: ";I 
D$:OPENIDS+"Z"+" .DO"FOROUTPUTAS3 : FORX=1T 
OA: PRINT#3 , W(X) : NEXTX: CLOSE3 : MN=MN+1 : GOS 
UB27:PRINT#1, : СОТО155 

250 K$-"Edit":GOSUB20:IFA»3THEN252ELSEPR 
INT#1,"* you ruined an eraser...":PRINT# 
1," begin again...":GOTO155 

252 PRINT#1,"* select edit line # 4 -"A: 
GOSUB59 : N=VAL(TKS) : [LFK$="@" THEN2G5ELSEPR 
INT#1, : PRINT#1, : [FA<4THEN2Q@QELSEIFN<4 OR 
N>ATHEN252 

254 PRINT#1, :PRINT#1,:PRINT#1,"> "W(N):P 
RINT#1, "#"N"of"A: PRINT#1, "*": PRINT#1,"? 
Fw Rv Ed Ad D1 To Qt "; 

256 GOSUB8: PRINT#1, : [FK$="F"ANDN<>ATHENN 
=N+1:GOTO254 

258 IFKS="T"THENPRINT#1,"* ";UIS;" to " 
MIDS (N$ (RC) ,4) :GOTO256 

260 IFKS="R"ANDN>4THENNE=N-1:GOTO254 

262 IFK$-"Q"ORK$-"Q"THEN2909 

264 IFKS="D"ANDN>3THENFORC=NTO(A-1) :W(C) 
=W((C+1) ) :NEXTC:A=A-1:GOTO294 

266 IFKS="A"ANDN<=A AND A<3Q9THENA=A+1 : FO 
RC=ATO(N+2) STEP-1:W(C)-W(C-1):NEXTC: PRI 
NT#1, :N=N+1:GOTO29¢ 

268 IFKS="E"THENPRINT#1, : PRINT#1, : PRINT# 
1,"* old"; :GOSUB5@:0$=TKS: PRINT#1,"> new 
" ; :GOSUB5@: LI-LEN(0$) : GOTO282 

276 IFKS="R"ORKS="D"THENPRINT#1, : PRINT#1 
,"* can't enter masthead" :GOTO256 
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280 GOTO256 

282 FORZ=1TOLEN(W(N) ) : IFO$=MID$(W(N) ,Z,L 
1) THENZE=Z-1+L1:RS$=LEFTS$ (W(N) ,Z-1)+TKS+ 
RIGHTS (VI CM) , LEN(W(N) ) -ZE) :W(N)=RS$ 

284 NEXT:GOTO254 

290 PRINT#1,"* input new line":GOSUB30:G 
050850 :W(N)-TK$ : GOTO254 

294 IFA-3THEN A-90:N-Q:ID$-"":PRINT£Zl,:PR 
INT#1,"* edited away...":GOTO155 

296 ΤΕΝΣΑΤΗΕΝ N=A:GOTO254 

298 GOTO254 

399 A$(1)=TIMES : UI$="NEW" : GOSUB25 : PRINT# 
1,:PRINT#1,"* HELLO !!":PRINT#1,"* you h 
ave dialed the BBS-109...":PRINT£1,:PRIN 
T#1,"* to use service please give:":PRIN 
T#1, 

302 PRINT#1,"* name: ":GOSUB50:W(2)-TK$: 
IFLEN (W(2) )<3THENPRINT#1,"* please respo 

nd ...":GOTO3@2 

394 PRINT#1,"* thanks, ";W(2):PRINT#1,"* 
please continue ..." 

396 PRINT#1,"* address:":GOSUB59:W(3)-TK 
$:PRINT#1,"* city, state, zip:":GOSUB59: 
W(4)=TKS: PRINT#1,"* phone: ":GOSUB5@:W(5 
)-TK$ 

398 М(1)-БАТЕб-" "+TIMES$ : ID$="SYS"+MID$ ( 
STR$ (MN) , 2) 

310 PRINT#1,"* please state how we may": 
PRINT#1," be of assistance..." :PRINTZ1, 


:PRINT#1,"* If you intend to call back," 


:PRINT#1," Leave a «3» Letter Password" 
311 PRINT#1," in Your Message, one that 
":PRINT£1," You will use for Future Acc 
ess." :PRINTZ1, :LZ=6:GOSUB4@: PRINT#1, 
312 UI$=W(2):PRINT#1,"* thank you for yo 
ur message,":PRINT41," ";W(2):PRINT#1,: 
PRINT#1,"* where pertinent, a Response": 
PRINT#1," will be put Online for the":P 
RINT#1," next 48 hours...":PRINT#1, 
314 PRINT#1,"* now saving: ";ID$:OPENIDS 
+"Z"+" . DO" FOROUTPUTAS3 : FORX=1TOA: PRINT#3 
, W(X) : NEXTX: CLOSE3 :MN=MN+1 : GOSUB27 : PRINT 
#1, :GOTO65 
1000 DATA"@1 SYSOP", PW1,"@2 AAAAAA", PWA, 
"03 BBBBBB",PWB,"@4 CCCCCC",PWC,"95 DDDD 
DD",PWD,"U6 ЕЕЕЕЕЕ",РМЕ, "07 FFFFFF", PWF, 
"08 GGGGGG",PWG,"09 HHHHHH",PWH,10 IIIII 
I,PWI 
1002 DATA11 JJJJJJ,PWJ,12 KKKKKK,PWK,13 
LLLLLL,PWL,14 MMMMMM,PWM,15 NNNNNN,PWN,1 
6 000000,PWO,17 PPPPPP,PWP,18 QQQQQQ,PWQ 
,19 RRRRRR,PWR,20 SSSSSS,PWS,21 TTTTTT,P 
WT 
1004 DATA 22 UUUUUU,PWU,23 VVVVVV,PWV,24 
WWWWWW,PWW,25 XXXXXX,PWX,26 YYYYYY,PWY, 
27 ZZZZZZ,PWZ,28 C28$$$,PW8,29 C29$$$, PW 
9,30 ALL the Gang,VFW,31 List Again,VFW, 
32 Cancel,ZND,ZND,ZND 
1008 END PCM] 








ІШ DOS Boot 2000 


Introducing a new monthly column for 


you and your Tandy PC 


Making Magic 
with DOS Menus 


elcome to PCM's new Tandy 
PC forum — DOS Boot. In 
this column, I will explore 


avenues that will allow you to use the 
full power of these magnificent ma- 
chines. 

I'll start off this column with the first 
of a two-part article on using menus to 
run your applications. The menu pro- 
gram contained in the first part makes 
the most complex applications as easy 
to run as pressing a single key. The 
second part will contain a simple instal- 
lation that makes changing your menu 
features a snap. 


Why Menus? 

This is a reasonable question and 
deserves an answer. Menu was born out 
of sheer frustration. I set up a multiple- 
computer installation in my office and 
encountered two problems imme- 
diately. First, someone accidentally 
formatted one of the hard disks (yes, it 
was fully loaded!) and, second, ever- 
yone kept asking me how to run so-and- 
so. When the second hard disk unit 





(John B. Harrell, III has written for 
microcomputer magazines for three 
years. He holds a bachelor's degree in 
computer science and is a software 
technical expert for Navy electronic 
support measures systems.) 


By John B. Harrell, III 


(mine) was inadvertently erased, I had 
had enough! 

My first attempt at automating this 
process was to set up a simple menu 
using a batch file. Have you tried this? 
It is really s/ow! You also have two 
other problems. If you scroll the menu 
off the screen (display a directory, for 
example), how do you get it back? Also, 
if you leave it there for extended periods 
of time, it may ruin your monitor. 

I devised Menu as a means of protect- 
ing the systems and to make it easy for 
anyone to walk up and run any of the 
applications on the computer. You can 
run Lotus 1-2-3, WordPerfect, Graph- 
writer, etc., all with one keystroke. This 
is not bad when you consider that my 
hard disk has 658 files taking up a total 
of 9 million bytes and using 24 sub- 
directories. 


Menu Magic 

Menu is really the most important of 
three parts of this system that makes it 
so easy. It is the driver program which 
interprets your request and executes the 
correct application (Figure 1 is an 
example of my system display). Menu 
also allows you to format a disk, to exit 
to the MS-DOS command level, and 
will blank the screen after a user-defined 
period of inactivity. 

Menu requires proper installation in 
the system and this is done by the 
AUTOEXEC . BAT file when you are boot- 


November 1985 PCM 71 











ing (һе system. Figure 2 is ап example 
of my IBM PC RUTDEXEC file. Notice 
that it loads several programs which 
remain resident and MENU is the last to 
load. This is important. Make sure 
nothing is loaded after MENU that will 
remain resident when that program 
terminates. 

Another key part of the RUTOEXEC 
file is the PATH statement. This state- 
ment establishes the search path used by 
MS-DOS when it attempts to execute 
files. Note the subdirectory named 
\DOS\BATCH — this is where I put all 
the batch files linked to MENU. 
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Тһе last рагі of (һе menu system is 
the batch files. These files are named 
corresponding to the letter of the option 
selected. Figure 3 shows batch file 
Α.ΒΑΤ which executes Lotus 1-2-3 from 
the menu. Note the simplicity of the 
batch file: the CHDIR or CD commands 
specify the directory to be used. Don't 
forget the leading backslash (N) as the 
batch file may not be executed from the 
root directory, and the last command 
selects the root directory. 

Look again at Figure 1. I reserve the 
last two option letters for formatting a 
disk and for exiting to MS-DOS. Press- 
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ing the letter corresponding to the 
FORMAT option will present a secondary 
option which allows you to select a data 
disk or system disk format. 

Pressing any other key than these two 
options will instantly return you to the 
menu. Selecting either option will auto- 
matically run FORMAT and prompt for a 
new disk to be inserted into drive ñ. This 
is predominately for hard disk users and 
I will talk about changing this option 
later. 

Similarly, the last option is reserved 
for exiting to the MS-DOS command 
level. With one minor restriction, this is 
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SYS file 


1 һауе а hard 


disk. If you do not have the statement 
DN in your CONFIG 
there is no way to exit Menu without 


resetting the system. A simple CTRL-C 


Please send your disks and pre-paid 


the Tandy 2000. Menu will run on all 
If you would like a version for your 
Tandy 1000 or 1200, follow the same 
instructions as above. Make sure you 
mailers to LCDR J. B. Harrell, III, 
1519-A Carswell Circle, Bolling Air 
Force Base, Washington, DC 20336. 
You will find Menu useful for rapidly 
changing from one application to 


IBM PC computers and compatibles. 
software for a color monitor even if you 


specify what computer you will run it 
on. Tandy 1000 users note: install the 
have a monochrome monitor. 


another even if you don 


Finally 
BRERK 


This involves two parts. The first part 


the end of the selected “time-out” 
period, Menu will turn off the monitor 
with the exception of a flashing prompt 
reminding you to press a key to return 
to the menu. While the menu is dis- 
played, the current date and time are 
displayed for your convenience. 
creates the program file MENU.COM. 
I and then run it. If it displays an error 
carefully for typographical errors. If no 
error messages are displayed, MENU. COM 
has been created. Type MENU and see the 
splendid display. 

The second installment of this col- 
umn will give you the menu installation 
program. This provides an easy mech- 


Creating Your Own Menu 


rapt 
Answer the prompt with anything 


other than a Y to exit to MS-DOS and Enter the program contained in Listing 


you will return to the menu imme- 
Pressing any other option letter dis- 


diately. Once you are at the MS-DOS message, check the DATA statements 
played on the video screen will load a 


and were at the first C> prompt. The 
restriction is that there is a limitation on 
are not familiar with this concept (see 
_ your MS-DOS reference manual), then 


| don't worry about it. I have encoun- 
prompt, you can instantly get back to 


the menu by typing the MS-DOS com- 
mand EXIT and pressing the ENTER key. 
new version of COMMAND .COM and exe- 
cute the batch file with the same name 
as the letter pressed. For example, 


changes which may be made to the 
current environment variables. If you 


just as if you had booted the computer 
flict with Menu in this regard. 


. tered few software packages that con- 


will suffice to exit if break is enabled in 


the configuration file. 


you can use Menu 


> 


anism to set the colors you desire and 
allow you to set the menu option text. 


Until next month 


or lower- 


BAT which expects 


to find commands telling the system 
how to load and run WordPerfect. 


pressing the letter Е (upper- 


case) will execute E 


DOS commands availa- 


take a few minutes and let me 


While you are packaging up your 


disks, 
know what you would like to see in this 


column. Some of my ideas are to inves- 


tigate the MS 
ble to you as a programmer, 


sendmeadisk how to manipulate high resolution 


If you can’t wait until next month for 


just as it has been created by writing 
a fully operational menu 


your batch files and using the options 


with the text displayed. 
A Real Good Deal 


use the normal exit proce- 


Once you have finished with the 
dures just as if you were returning to 


MS-DOS. The batch file will then 


application, 


explain 


execute the remaining commands. 
When COMMAND . COM realizes that there 


color graphics and text 


in a mailer with the proper return 
postage. I will send you a disk with 


MENU.COM and MENUSINT 


an explanation 


, 


of how monochrome text mode really 


BRS on it. I 


are no more MS-DOS commands in the 
batch file, it will terminate and auto- 


matically return you to the menu for 


your next selection. 


“ы 9 
S= =s sn 
с әне 
So BM 
~ OD 

сезем 
£ ἃ 8 “5 
d == 
ὃς Ë Ὁ Š 
gl o S = 
° Pego 
> Coes 

= 
"55965 Е 
% Боно 
сЕ Β 
889888688 

ხი. 5 > 6 
6 осо 
_ ызды 
© поз 5 
е dm. ς 
С) gud 
თ 68=5= 
> 4-39 
680595958 
>> ი ΒΒ 


including sample 
BRS only runs on 


will also configure this disk to beafully Tandy 2000 compatibility to the ІВМ 
As published 


operational system, 
batch files and demonstration applica- 
MENU 


tions. 


Should you desire to quit for awhile, 
don't worry about the bright menu 
display “burning” into the monitor. At 
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Тһе listing: 

CLS 
PRINT "Creating binary file: MENU.COM" 

CHECK.SUM - 0 
OPEN "R",1,"MENU.COM",1: FIELD 1, 1 AS D$ 
READ ΝΕ 

IF N%<@ THEN GOTO 100 
LSET D$-CHR$(N$): PUT 1: CHECK.SUM = CHECK.SUM + N% 
GOTO 50 

READ CHECK2 

IF CHECK2<>CHECK.SUM GOTO 140 

PRINT "FILE MENU.COM CREATED SUCCESSFULLY" 

CLOSE: END 

PRINT "FILE CREATION ERROR" 

CLOSE: KILL "MENU.COM": END 

DATA 233, 189, g, Las 

DATA 

DATA 0, : 

БАТА Ў 664 562. 32. 
DATA 65, 78, 68, 
DATA 99; 136; 105, 
DATA 32, 272 ТИШ 
БАТА 117; 10957 98. 
БАТА 32, 7927492; 
БАТА 46, 32, 
DATA 78, EI, 
DATA 2051292; 
БАТА 52, 687, 


тм 
a DMA Controller 
Introducing M = B -1 000 (Available without DMA Controller to use 


as second board or for IBM compatibility) 


Clock/Calendar Serial Port 


Clock Battery Backup 
128K-512K Memory 


Designed for use with the new 
Tandy 1000 Personal Computer, the MFB-1000 
contains three of the most needed functions on a single 
10" expansion card. Using either 64K or 256K DRAM chips, the MFB-1000 
can be populated with up to 512 K of memory bringing total system memory 
to 640K. Additionally, the board also includes an IBM compatible serial 
communications port (identified as COM 1) and a battery backed real time 
5725 Kennedy Blvd. clock/calendar. As required by the design of the Tandy 1000, the MFB-1000 
OD END OT also contains its own DMA Controller. However, the DMA Controller can be 
disabled, making the MFB-1000 compatible with the Tandy 1200 as well as 
Dealer Inquiries Welcome other IBM compatible machines. 


ORDERING INFORMATION: 

Visa/Mastercard orders accepted. Allow 2 weeks Ш 128K RAM $299.95 Ш 256K RAM $329.95 Ш 512K RAM $359.95 
for personal checks to clear. Add $3.00 shipping 

and handling. C.O.D. orders add $2.00. N.J. resi- IBM is the registered trademark of International Business Machines 

dents add 6% sales tax. Tandy 1000/1200 are registered trademarks о! Tandy Corp 
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339 DATA 
340 DATA 
350 DATA 
360 DATA 
370 DATA 
380 DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
449 DATA 
459 DATA 
460 DATA 
870 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
570 DATA 
580 DATA 
590 DATA 
600 DATA 
610 DATA 
620 DATA 
630 DATA 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 
700 DATA 
710 DATA 
729 DATA 
739 DATA 
740 DATA 
750 DATA 
760 DATA 
770 DATA 
780 DATA 
790 DATA 
800 DATA 
810 DATA 
820 DATA 
830 DATA 
840 DATA 
850 DATA 
860 DATA 
870 DATA 
880 DATA 
890 DATA 
900 DATA 
910 DATA 
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920 DATA 190, 105, 115, 112: πο 97, 121, 32, 116, 194, 191, 92, 169 
930 DATA 320, 113, შვა E 3e πα 395.) 26, 22, 1)... αὐ 
940 DATA 59. . 32. 82, 49, 8: 55, 8359. πα, 320-107 039 ee 
950 DATA 85,35. 92. ο 782, 39. 32, 32, πα. ПРЄ ee 
960 DATA 48, 47, We 47, h8,. 48, 32, 36, 32, ὁ 4.59 
970 DATA 48, 58, 48, 76, “ҺЕ Са. 8. (ЛҒ TMU 
980 DATA S. κ X ϐ 77, 191, 189, 111, 11%, 121, 32, MA 
999 DATA 97, 198, 198, 111, 87, 116, 199, πα, 118, 33, 192, 97 
1000 DATA 198, 101, 100, 13, 36. 65, δι 92. 157, 79, Ті, 
1010 DATA 68, 46, 67, 42,02 um πο 27,557, 52. 
1020 DATA $2. μάς Adee, πο Foe AU. 77, (65, 4, 

1030 ΡΑΤΑ 12. EF, $3. UBI. ME. UIN, 39; 

1040 DATA 47, Т АВЕСТО 0. 

1050 РАТА 35. 39 აფი, NR ^ B. 

1060 DATA 0, 5, ; 163, 

1070 DATA 97, 32. 101. 

1080 DATA 100, 115, , 1 M 

1090 DATA 105, 101, 

1100 DATA 32, 32, 

1110 DATA 115, 

1120 DATA 105, 

1130 DATA 104, 

1149 DATA 116, 

1150 DATA 32, 

1160 DATA 32, 

1170 DATA 35. 

1189 DATA 32. 

1190 DATA 





MSDOS UTILITIES 
TANDY 1000, 1200, 2000 
ІВМ РС/ХТ/АТ 


..... R A M D I 5 K ..... 

RAMDISK -- Use spare memory as а superfast disk to 
speed up applications. (You specify Ramdisk size). 
Appears to programs as a disk, but gives instant 
access. Easy to install and use. 


эз USER TOOL BOX ო... 
SINGLE KEY COMMAND -- Define any text string 
(or DOS Command) as a single keystroke. Press 
single key to execute commands! 
ALPHABETIZED DIRECTORY DISPLAY - in" 
Directory on 1 screen (5 columns, sorted, Fast!) 
FIND FILE -- Scárch all directories for file. 
DIRECTORY DTREE -- Display all sub-directory 
names in an casily readable form. 
CHANGE FILE ATTRIBUTES -- Make files hidden, 
readonly, archive, etc. Set or reset attributes. 


222224 FULLBACK .... 
Finally, an casy to use backup program that keeps exact 
images of your files on backup floppies, cartridges, or 
hard disk. Automatically backup one, several, or ALL 
subdirectories. Backup modified only, or ÁLL files. 
Kecps perfectly organized backups - backup structure 
is identical to original. Supports backup by date 
multiple backup copies, large files (up to 32MB). ` Far 
superior to DOS BACKUP, easier to use, and much 
more reliable. Absolutely a MUST for hard disk users. 


κ SNAPSHOT 9% 


Instantly snap ап image of your screen for later recall. 
Simple keystroke combination to save or recall screen 
images before they disappear forever. Save and load 
from a file. Available from DOS and applications. 


More ALPS Tools Available. Call or Write for ALPS 
catalog. Customer Support !!! 


ALPS 






































Micro to Micro... 


to Mini. . . to Mainframe! 
TELETERM DOES IT ALL . . . BETTER! 


FEATURES: 

e TERMINAL EMULATION 
of more than a dozen 
terminals including; 

DEC VT100. TRS16. 
ADDS25/VIEWPOINT., 
TELEVIDEO and many others. 
e ELECTRONIC MAIL - has 
all the features necessary 
to access Western Union's 
Easylink. ITT Timetrans, 
RCA Word 
Processing, Direct File 
Transmission, Mailbox 
Retrieval To Screen, 
Printer or File 

e FILE TRANSFER 
Powerful error-free disk- 
to-disk file transfer 
capability --without any 
memory buffer limitations 
--is another. Transfer 
contents of an entire disk 
if necessary. Even 
converts files from MS- 
DOS to TRS-DOS or XENIX systems format or vice versa when TELETERM-EM is paired at both ends 


e UNATTENDED OPERATIONS MODE - permits automatic sequential dial up and connection to other 
systems. file transfer between systems, including mainframes, and log-out any time of day or night 
Receives and collects data, commands from others any time as well 

Integral text editor provides word processing capability. 

TELETERM-EM does all this --and more. 
See it for yourself today. At the Radio Shack near you. Or phone or write us direct. Telexpress, Inc. P.O. 
Box 217. Willingboro. NJ 08046 (609) 877-4900. Visiting Comdex 





1502 County Road 25 ЗЕ Soe nat both 
Woodland Park, Colorado 80863 | | | 4/7 
303-687-1442 Box 217. Willingboro, NJ 08046 (609) 877-4900 
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1200 DATA 107, 46, 32, 361 32 
1210 DATA 197, 191, 108, 108 
1220 DATA 110, 3, 104, 101 
1230 DATA 100, 105, 121, 46 
1240 DATA 60, 79, 62, 36 
1250 DATA 104, 97, 101, 113 
1260 DATA 32, 68, 

1270 DATA 101, 118, 

1280 DATA 36, 

1299 DATA i 

1300 DATA 

1319 DATA 

1320 DATA 

1330 DATA 

1340 DATA 

1350 DATA 

1360 DATA 

1370 DATA 

1389 DATA 

1399 DATA 

1400 DATA 

1410 DATA 

1420 DATA 

1430 DATA 

1440 DATA 

1450 DATA 

1460 DATA 

1470 DATA I j 14g, 219, 
























m 


ч т nj ds n UN # HRE Hir apy PCM 
I прш IL hr a EESE | MEET THE WIZARD™ 
ІШ | i ის йс ies | à i ove! თ. | Quality / Price / Performance Guarantee 
| рїш fu 










ЕР 


RI 


1122722223: 
Z 
IET 


| Easy to use! $29.95 for any one package 


IL 
122752 


ИН 
i n ity ү | 
үнү 
TS 
Ж 


е z m h DOS i | dns 
í BPO 
: = a 1. 


ІШТІ 


















1 | ІШ; is 3 I 9.95 tor each additional 
Τι OQ ი. | ' М 
ii P ino ი. dut qm ДЫ > | | For TANDY 1000, 1200, 2000 апа Compatibles 

ШИНЫ » mal :seve Hip at : of HHH: . UNDELETE Plus — Recover deleted files, display 

| ИЕН 1. ү Hn ^ | vor ა. sorted directory tree, гепате κ wir 
iis i rr pr | | directory file search, quick sort directory display, 

| | oe i ne io ა j ms. / | a d ШІ change file attributes, and more (8 programs іп all). 

| be Supr Y მ 1. ко | 1 . SHRED — For your шу sayan iy ын 

ІШІ we're à 112. 1) ui site | т min. ла | შუს pa jiber lige ბა. them! Confidentiality 

| Hot ИНН and runs | ins th ae id i 1! снаге 

i Prop 1 HHUH H MM) егі ШЕ | . RAMDISK -- Transform your spare memory into 

n š Š ini 

ii | n ay f submissie 51 s base 1 "n | superfast disk(s). You specify size and number. 

1 | Cr i Hs iit Don P" 11 ed o ili i . SNAPSHOT — Instantly save and display up to 99 

| НД ИНН eed upo ^ a pri i tt iin | ] ΠΗ text screen images. Great for debugging, Help 

ΠΗ Ημ аве не ho igi ! HHH screens, etc. 

ili ШЕ nbi veneto ИҢ IV ИНИНЕН = i i . SHERLOCK — Find lost files. Give Sherlock a clue 

d 7 ASE ianu HiHi үнің = ior тем, СНЕ ih ШІ (ед phrase ог fragment of file contents) and files 

ii m Í or ma i ЧӨН is x г - მისი HIH? ІШ will Бе located іп all directories. 

| ive ცს j 2 iubente | H **For Okidata, Epson and compatible Printers** 

i же faut 2 | нр НЕ 6. GRAFIX — Send graphics screen image to printer. 

HHH | i | " ΠΠ You choose printout size. 

| “current iz η er pu 1 fiwa i 7. FONTFIX — Send control codes to printer to 

ΓΙ : ities ешш: ftw » ial | | configure output mode. Easy to use mnemonics. 

ης ა ИШИНГ ЖШ ИН ne ili 13. I, ii 

i HH : 190101111 | 

| «€ ae ппа ИНИ 1 d ИНЕ OL 


i я 800-622-4070 
|. Р.О. Вох 714 53.00 ship & handling 
HHI Sudbury, MA 01776 in Mass add 5% tax 
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1489 DATA 
1490 DATA 
1500 DATA 
1519 DATA 
1520 DATA 
1530 DATA 
1540 DATA 
1550 DATA 
1560 DATA 
1579 DATA 
1580 DATA 
1590 DATA 
1600 DATA 
1619 DATA 
1620 DATA 
1639 DATA 
1640 DATA 
1650 DATA 
1660 DATA 
1679 DATA 
1680 DATA 
1690 DATA 
1700 DATA 
1719 DATA 
1729 DATA 
1730 DATA 
1749 DATA 
1759 DATA 
1760 DATA 
1779 DATA 
1789 DATA 
1799 DATA 
1800 DATA 
1810 DATA 
1820 DATA 
1830 DATA 
1840 DATA 
1859 DATA 
1860 DATA 
1879 DATA 
1880 DATA 
1899 DATA 
1900 DATA 


* TAX RECORD 


178, 9 
254, 
1915 
178, 
89. "995 
τὰ, 25873 


POKER ODDS CALCULATOR 


BASIC Cross Reference 


Facility 


* BASIC PROGRAM PRINTER 


(unprotects any protected program 
* WORD LIST of the American Language 


All programs are supplied on diskette with printed documentation (except BASIC Printer and 
Diary) and mailed postpaid to the USA, Canada and Mexico. VISA/MasterCard accepted 


For more information call 800-NICOLAI (642-6524) or in Missouri 314-621-7618. 


Robert L. Nicolai 


4038 N. Ninth Street 
St. Louis, MO 63147 


Tandy is a trademark of Tandy Corporation 


PCM 


* All programs bear 
The PCM 


CERTIFICATION 
certification seal HS, 
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137, 80. 14, 5, 
65. - B. 69. M. 
124, 239, 138, 14, 
188, I, 1356, 34. 

$. 432325 88, 

MEE WE ME S 
245, -0; 88, 91, 
10, 178, 49, 232, 
182, ..12, 178,- 55, 

μοδα, 68, - მა 
235, 134, 254, 295, 
232, 198, თ. 186, 
(17-80, 83, 7%), 
88, 91, 99, 89, 
27, "939 115, δ. 
178, 27, 230, 100, 
$18. 1- $8, 7 
159... 15,935. -:7. 
123.75. 185, 118, 

2, 295, 16, 180, 
22d omis - 76, 

7:185, 7:32, 10. 

σι 285. 18, ^ 7; 
956, 9,194, 289, 
3-8. 22-6 358. 
171, 335, 248, 7, 
67, .131,.194, 2, 
1967.58. - 4, ав; 
232, 216, 255, 189, 
232, 162, 255, 189, 
179, . 2, 83, 8i, 
192, 4, 253, 146, 

9, 232, 119, 255, 

74942 თა) SS 
115... 4, 233, 
108v 3. 299. 38. 

ვერი ЛӘ d 
209.1895 39240 З 
23.178, ; 9, 237. 
i4, 73,5 8.0179. 
189, 74, 187, 254, 
TER ORs 178. 18; 
ВБА 085, 3400-60 
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Online Information Network 


Data: 618-847-2231] 2 3007/1200 BAUD 


ONLINE BRS 
JOBSERVTCE 
CLASSIFIEDS - UG 
PLAY GAMES ONLINE 


– INFO 


~ DOWNLOADS ~ N 


MESSAGE 
- ӨНОРРІ 


RMAT ION 
A LISTS 

CENTER 
NG MALL. 





1910 DATA 
1920 DATA 
1930 DATA 
1940 DATA 
1950 DATA 
1960 DATA 
1970 DATA 
1989 DATA 
1990 DATA 
2000 DATA 
2010 DATA 
2020 DATA 
2030 DATA 
2049 DATA 
2050 DATA 
2060 DATA 
2070 DATA 
2089 DATA 
2099 DATA 
219g DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2149 DATA 
2150 DATA 
2160 DATA 
2170 DATA 
2189 DATA 
2190 DATA 
2200 DATA 
2219 DATA 
2220 DATA 
2230 DATA 
2249 DATA 
2250 DATA 
2269 DATA 
2270 DATA 
228) DATA 
2290 DATA 
2300 DATA 
2310 DATA 
2320 DATA 
2330 DATA 
2349 DATA 
2350 DATA 
2360 DATA 
2370 DATA 
2380 DATA 
2390 DATA 
2400 DATA 
2419 DATA 
2420 DATA 
2430 DATA 
2440 DATA 
2450 DATA 
2460 DATA 
2470 DATA 
2480 DATA 
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MAI Accounts Payable: 
An Easy-to-Use 
AP Program 


Software 2000 





MAI’s Accounts Payable program 
makes the chore of paying bills a little 
easier. The software can be operated 
separately or as an integrated part of the 
MAI accounting system. A Tandy 2000 
with 128K RAM is required, one or two 
floppy disk drives and a printer with 
132-column width. 

Several Tandy printers are accommo- 
dated, but at present there is no way to 
configure the printers. MAI is working 
on printer drivers and will send the 
update free to registered users. I used 
the Line Printer VI, but even with 132- 
column paper, some of the printouts 
went off the right-hand edge of the 
paper. If you put your printer in 
condensed mode, everything will print 
on the page. 

The software accepts either cash or 
accrual acounting, has a consistent 
debit/credit balance with automatic 
control during data entry and allows 
posting to once-only vendors. If inter- 
faced with the General Ledger program, 
payments and invoices are posted to the 
proper accounts, and a posting distribu- 
tion report is generated. 

The discount due date, discount 
amount and invoice due date are calcu- 
lated automatically. Safeguards are 
installed to protect against duplicate 
invoice payments. Editing and data 
verification are done online, and dis- 
counts are recorded in advance or at 
time of invoice payment. 

Either partial or full payment of 


invoices is allowed, and file sizes can be 
expanded in mid-year, based on ac- 
count activity. An aged open invoice 
report is printed by invoice received 
date or by due date. Full details or a 
summary can be shown. 

A special feature of this software is 
password protection to restrict access to 
any menu. The data entry operator 
could post invoices and generate vendor 
labels, but could be restricted to print- 
ing checks. 

Forecasting the cash requirements is 
shown by month, or by user-definable 
number of days per period. Invoices are 
selected for payment based on invoice 
due date, vendor, pay cycle or any 
combination of the three. 

The system accepts up to 200 vendor 
accounts and 2,000 open invoices, with 
10 percent disk space left over and 
mailing labels for vendors are generated 
by the program. 

The main menu is simple and easy to 
understand, The choices are 1) 
definition — to personalize the system, 
2) system — to operate daily entries 
and 3) utilities — to back up the data. 
The user manual has a nice flowchart 
illustration which shows the progress of 
the program. 

The definition option sets up the 
company name and address, with fed- 
eral, city and state tax ID numbers. 
Prompts ask if the company has divi- 
sions, uses preprinted check stock and 
operates on a cash ог an accrual basis. 
Common payment terms such as 2/10 
net 30 are predefined with a special two- 


letter code. When invoices are entered, 
the vendor’s default payment terms are 
automatically displayed. 

Checks are printed with detailed 
payment information, and can be 
drawn on up to 24 bank accounts. Bank 
ID codes are set up for each account, 
account numbers are entered, and a 
general ledger account number can be 
assigned to each checking account. 

Manually written checks can be input 
into the payables system at any time 
during the month. Checking accounts 
are reconciled with bank statements, 
with provisions for interest, service 
charges and other adjustment such as 
credit card fees. 

One nice feature is treatment of 
discounts. If the “discounts assumed” 
option is chosen, and an invoice for 
$100 with two percent discount is en- 
tered, the system posts $98 to the ex- 
pense account and to open accounts 
payable. If the discount is lost, $100 is 
posted to cash, $98 to open payables 
and $2 to discounts lost. 

The retention part of the program 
allows for partial payments of an in- 
voice. Full payment might be withheld 
until certain conditions are met, such as 
completion of work or installation of 
equipment. During automatic payment 
selection for any retained invoice, the 
amount paid is invoice value less the 
retained amount. If cash, rather than 
accrual basis is selected, this retention 
feature is not available. 

Vendor codes can be alphanumeric or 
numeric only, up to six characters per 
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vendor. If divisional reporting is 
chosen, the first two characters of 
vendor code show which division 
accrued the payable. With this feature, 
payables and expenses are reported 
separately by company department. 

After the vendor's code, name, ad- 
dress and phone number are installed, 
an eight-character sort key is set up for 
each vendor. The program defaults to 
the first eight letters in each vendor's 
name, but customized codes can be 
entered. If you try to delete an active 
vendor, an error code appears and the 
program refuses to delete the vendor. 

An optional pay cycle can be set up 
for each vendor. Perhaps you want to 
pay the landlord on the first of the 
month, and the telephone company on 
the 15th. Numbers greater than 31 can 
be entered for quarterly payments such 
as insurance. 

Vendors can be defined in mid-year, 
and purchases-to-date, returns-to-date 
and year-to-date purchases/returns are 
automatically calculated. The general 
ledger account most often used with a 
vendor is set up, and when invoices are 
posted, the screen shows the account 
number as a default. 

The vendor masterfile listing prints 
summary reports in alphabetical or 
vendor code order. Some, or all, of the 
vendors can be listed. A second report, 
the vendor detail listing, shows open 
invoices by vendor. A vendor cross- 
reference listing which prints on the 
screen shows vendors by numeric code 
and alphabetically. This helps control 
duplicate entries of vendors. Mailing 
labels are printed for all vendors, or for 
a selected few. A test pattern aligns the 
labels. 

The invoice entry/check payment 


program is simple to use, but has some 
built-in controls. The vendor code 
prompt displays а 4” sign for numeric 
data and a square block for alpha. Up 
to 10 alphanumeric characters are input 
for invoice number, and the date can be 
input or defaulted to today's date. A 
non-discountable amount, such as 
freight charges, could be shown, and the 
prompt for invoice amount shows com- 
mas so it's easy to enter the amount. A 
15 character memo can be added. 

I liked the posting function of the 
invoice entry feature. Total amount to 
be distributed is shown on the screen. 
If the invoice is for $500 and $300 is 
posted to inventory, $200 appears in the 
distribution box to show how much is 
left to post to another account. 

The invoice can be edited several 
times. Use of function keys moves the 
cursor to previous or next entry while 
the invoice is on the screen. А second 
chance to edit is a menu option. If the 
invoices have already been updated, 
another change is made by using adjust- 
ing entries. Once an invoice has been 
paid, it cannot be canceled or deleted. 

When all invoices have been posted, 
a data entry register prints out. If the 
system is integrated with the General 
Ledger module, all entries are automat- 
ically posted. For a non-interfaced 
system, a hard copy of the entries is 
produced. 

Handwritten checks can be entered 
into the payables system, and a manual 
register and update report are gener- 
ated. 

Check writing is easy with this MAI 
program. The checking account num- 
ber is chosen, and the options of pay- 
ment by cycle, due date or discount date 
are selected. A sample check pattern can 


be run to align the checks in the printer, 
and starting check number is input. If 
the checks ran improperly, a restart 
function is available. After the checks 
have been printed and the paper is 
changed, a check register is printed. 

А manual payment selection is avail- 
able instead of automatic payment, and 
invoices are selected for payment on a 
vendor-by-vendor basis. 

Four excellent accounts payable 
reports are generated by the system — 
an open invoice report, aged open 
invoice, cash requirements and a dis- 
bursement register. 

At the end of the month, an end-of- 
period processing function is run to 
clear the files and zero out the totals. 
The checking account(s) can be recon- 
ciled with the bank statements, and a 
hard copy is printed. 

I encountered some problems with an 
error message 16, which did not appear 
in the user's manual. A toll-free call to 
MAT's technical support resulted in a 
quick fix to the problem. If the program 
is run without using the Reset button, 
a problem with the CONFIG.SYS file 
occurs. However, once the system disk 
is in Drive A, reset, then everything 
works fine. 

I was impressed with the technical 
support of MAI, as well as the ease of 
use of the program. Function keys made 
data entry much easier, and the pro- 
gram ran smoothly on the Tandy 2000 
without any delays while the data was 
saved to disk. This software is easy to 
use, and no accounting knowledge is 
necessary. 


(MAI, distributed by Tandy, One Tandy 
Center, Fort Worth, TX 76102, $495) 


— M.J. Batham 





Software 1000/1200 


Joe Lynn Payroll: 
Inexpensive and 
Complete 


Life was surely simpler during the 
barter period. If someone helped you 
with your harvest, you helped him with 
his harvest or gave him a share of your 
crop. No paperwork; no forms; no 
taxes. 

Well, for the small business operator 
with employees, life is not that simple 


now. He has a few partners in the form 
of federal and state governments who 
require a lot of attention without con- 
tributing positively to the bottom line. 
Modern reality requires the hassle of 
preparing payroll checks, deductions 
for federal, state and Social Security (an 
interesting misnomer) taxes. 

Also, there are deductions for med- 
ical insurance and other employee 
contributions with the joy of reporting 
and paying all of these deductions to the 
appropriate governmental or financial 
organization. 

To assist the small businessman with 
these necessary payroll and witholding 
tasks, Joe Lynn Computer Services has 
released a payroll system utilizing the 


capabilities of the Tandy MS-DOS 
computers to perform payroll calcula- 
tions, posting and check printing. 

Joe Lynn, who has previously re- 
leased business-oriented programs for 
TRSDOS Tandy computers, has now 
focused his efforts on releasing software 
for the new Tandy MS-DOS machines. 

The Payroll System actually consists 
of several programs and files all inter- 
acting together to form a payroll system 
which is extremely easy to operate. The 
only computer expertise required is the 
ability to insert a diskette and type 
PAYROLL. A series of menus then leads 
the user through the various steps 
necessary to enter employee data, main- 
tain necessary year-to-date records and 
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print checks. No confusing technical 
jargon is used. 

Although the program is simple to 
use, its capabilities are quite complete. 
The Payroll System: 


* Calculates FICA, federal and state 
witholding tax plus four miscellaneous 
deductions automatically. 

€ Totals hours and wages for up to 10 
departments. 

@ Allows miscellaneous deductions to 
be computed as a percentage of gross 
wages, amount per hour worked or 
fixed dollar amount. 

9 Has state witholding tax tables prede- 
termined for each state. 

* Maintains state and federal tax ex- 
emption independent from each other. 
9 Has the capability to exempt individ- 
ual employees from FICA (Social Se- 
curity). 

@ Maintains an employee status file 
which can be updated easily. 

რ Allows hourly or salary pay scales. 
* Allows salary override. 

® Calculates regular time, time-and-a- 
half and double-time for hourly em- 
ployees. 

€ Prints checks and check stubs for a 


single pay period with year-to-date 
totals on the pay stub. 

Ф Allows sample checks to be printed 
to align printer. 

9 Has an automatic mode to print 
checks that have the same hours or 
salary each pay period. 

რ Lists all checks issued each pay 
period. 

€ Prints year-to-date, quarter-to-date 
and period-to-date totals. 

Ф Computes and prints data for quar- 
terly tax reports. | 

9 Has the ability to convert data from 
an existing payroll system in the middle 
of a year. 

* Handles up to 999 employees. 

€ Prints W2 forms. 

€ Lists all employees by number or 
alphabetically by last name. 

€ Uses a standard check form (NEBS 
89022). 


While these capabilities аге not sur- 
prising and are contained in most full- 
featured payroll programs, what is 
surprising is that you get this all for 
$49.95. Joe Lynn has evidently declared 
a software price war. 

Curious about how such a complete 


program could be offered at such a low 
price, I called him and was informed 
that software selling prices are deter- 
mined by the actual production costs of 
the package (disks, binders, printed 
material, etc.), the costs of distribution 
(two-step software distribution and 
retailers profits), advertising costs and 
programmers profits. By selling direct, 
he feels that he can offer quality soft- 
ware comparable to packages selling for 
up to 10 times his price in sufficient 
quantity to make a fair profit. 

The low price is also his way of 
combatting software piracy. He feels 
that the likelihood of customers copy- 
ing and passing-on software diminishes 
if the purchase price is reasonable. 

Whether or not his assumptions are 
accurate remains to be seen. However, 
this program at this price is certainly a 
value. 

To handle the varying tax laws for 
each state, different program versions 
are released for each state with the 
proper tax witholding tables predeter- 
mined and embedded in the program. 
At year's end, these tax tables are not 
user-changeable. As federal, FICA and 
state tax rates change with the start of 
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We'rethe people who gave the CGP- 
115 Color Plotter business status. 
With QuickPlot, your Model 100, or 
Tandy 200, produces high quality 
line-, bar- and pie-charts in vivid 
color. Simple data entry and flexible 
chart formatting makes QuickPlot 
and the CGP-115 Color Plotter the 
logical choice for the professional 
who wants to plot his profits—not 
spend them. 
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Now you have a friend in the software business. 


Computer Solutions Co. 
P.O. Box 24383 
Louisville, KY 40224-0383 
2 (502) 245-0232 

Call or write to place your order or send for tree 
information. 


STILL ONLY 


$49.00 


We pay shipping 
on pre-paid orders 






Complete QuickPlot Package 
Includes: Bar Chart, Pie Chart 
and Line Graph. Data and chart 
formats save to disk or tape for 
future plotting. 
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а year, (һе purchase of а уеагіу update 
Гог half the current cost of the program 
Is required to get the new tax tables. 

To test the mathematical accuracy of 
the program, І ran it parallel to а 
megabuck existing payroll system, 
running on an IBM mainframe. The 
results were identical. The major func- 
tional differences between the two 
systems were that the Lynn Payroll 
System was limited to 999 employees 
and only four miscellaneous deduc- 
tions. 

A special payroll system for restau- 
rants, (not tested) is available for 
$149.95 which includes the ability to 
handle tips and draws. 

If you are still producing a manual 
payroll, the costs and risks of compu- 
terizing your system are now very low. 
Besides the low price, a 30-day money- 
back trial period is offered. Since the 
program disk is not copy-protected, Joe 
is truly a trusting man. He would have 
enjoyed the barter system. 


(Joe Lynn Computer Services, 23501 W. 


Gagne Lane, Plainfield, IL 60544, (815) 436- 
4477, 549.95) 


— Bruce Rothermel 


ALWAYS AT 
SALE PRICES 


Software 100 


Supercharge your 
ROM with Textpro 
and Supera 


The more you use a machine like the 
Model 100, the longer your wish list of 
additional features grows. Some may be 
as routine as global search and replace 
ог as sophisticated as a keyboard macro 
ability similar to what you already have 
on your desktop PC. Perhaps you hope 
to use the LCD as a video prompter. Or 
how about “windowing” on the small 
screen? Well, the 100 still doesn't do 
windows, but with a little software 
magic, you can look at one file while 
you edit another. The secrets are hidden 
in two programs from Micro Demon 
called Texpro and Supera. These pro- 
grams shorten the wish list and boost 
your ROM power substantially. 

Texpro and Supera combine many 


ТАМПҮ 


COMPUTERS 


COMPUTER | CUTOMER SERVICE 
(817) 481-SALE 
CENTER, (9 a.m. - 5 p.m. C.S T.) 


DFW COMPUTER CENTER 
326-MAIN ST., 
GRAPEVINE, TEXAS 76051 


unique and useful utilities into a single 
package. Texpro is a subset of Supera 
and contains all of its text capabilities. 

Texpro and Supera load themselves 
from cassette after first determining 
your machine's memory size. What 
looks like a BASIC program now ap- 
pears on the main menu. To turn Su- 
pera or Texpro on, place the cursor over 
the filename and press ENTER. The 
names of ROM TEXT (and for Supera, 
BASIC are changed so you can tell at a 
glance whether Texpro or Supera is 
enabled. If need be, you can turn Tex- 
pro and Supera off and even get rid of 
them altogether. But heed the manual's 
warning; to kill these programs you 
must first turn them off or face a certain 
cold start. 

The documentation for Supera is 
complete, accurate and full of exam- 
ples. It is also large, bulky and difficult 
to read. The print in the Texpro manual 
is better but still not good. Both man- 
uals would benefit greatly from typeset- 
ting. As always, a portable quick refer- 
ence would be a further plus. 

Texpro and Supera allow you to 
define 26 function keys (A-Z) and 
several special keys. Suppose you are 
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Give your Model 100 


128К 








апа access data from апу other bank. 
PCSG says: Satisfaction guaranteed or your money back 


As amazing as it seems you can up- 
grade your Model 100 to 128K of RAM 
in just 60 seconds. 

It comes to you right out of the box 
looking just like the picture. You just open 
the little compartment on the back of your 
Model 100 with a quarter and it just pushes 
right into place. You can then put the cover 
back in its place. 

You then have 4 banks of RAM of 
32K each. The additional three banks 
also work just like your Main Menu. 

You push a function key and you are 
in the second bank. Push again and you 
are in third, again, then fourth. Press it 
once again for your original bank. 

It has its own built-in NiCad battery 
that recharges right from the Model 100 
and its guaranteed for a full year. 

What is really great is that you can 
copy a file from one bank to another with 
just a function key. 

Each bank is like having another 
Model 100, and all the built-in programs 
as well as any snap-in ROM programs ap- 
pear in all four banks and work the same 
way. Your widebar cursor moves from file 
to file and you access any file or run any 
program just by pressing ENTER. 

What lets you copy any file from one 


PCSG called RAM +, that comes at no 

xtra charge. It just pushes right into the 
little socket in that same compartment with 
the 96K expansion unit. 


(Fes to another is a snap-in ROM from 


within 30 days 


Not only does this firmware let you 
copy a file from bank to bank, but you can 
make a copy of any file within the same 
bank instantly with a function key. Great 
for Lucid spreadsheets! 





Copy a file from 
bank to bank with a 
function key 





You can also rename a file, or kill any 
file with just a function key. Plus you can 
do a whole lot of other useful things like 
setting the date, day and time with func- 
tion key ease. You even have a function 
key that lets you use non-Radio Shack 
printers without having to make those 
tricky dipswitch settings. 

RAM + lets you cold start any one of 
your banks without affecting the other 
three. That means that anytime you want 
you can clean out a bank’s entire memory, 
but leave intact all the files in the other 
banks. 

What is also fantastic is that you don’t 
have to have the ROM in place to use the 
additional RAM. Whenever you take out 
the snap-in ROM it leaves behind a tiny 
machine code program that lets you switch 
from bank to bank just by pressing 
ENTER. 


AM 


Software included, transfers from bank to bank. Works like main 
menu! Includes powerful RAM Basic that lets programs store 


Installs as easily 


as plugging 
in a socket 





This lets you use your ROM socket to 
snap-in other ROMS like LUCID spread- 
sheet, WRITE ROM text processor, or 
DISK + ROM file transfer program, and 
use them in any or all four banks. All of 
these, by the way, are available from 
PCSG. 

When you are ready to copy a file 
from one bank to another or use any of the 
other fantastic functions we talked about 
you can just snap the RAM + ROM back 
into place. 

Everybody that has this 128K system 
in their Model 100 is so excited, because it 
gives them four times the capacity and 
all banks work just like the Main Menu. 

And what has made a lot of people 
happy is that the system bus, located in the 
same compartment, is left free for you to 
plug in a DVI or the Holmes Engineering/ 
PCSG portable disk drive. 

The ability to copy a file from bank to 
bank instantly with a function key, plus all 
of the other features make this RAM ex- 
tension truly an engineering masterpiece. 

Some people hesitate when they think 
of installing something, and then others 
are skeptical that any additional hardware 
could be as good as the Model 100 itself. 
That's why we sell these ЖК expansions 
on a 30 day trial. Simply return it within 30 
days for a full refund if you are not satis- 
fied. Priced at $425. MC VISA COD. 


1-214-351-0564 





HORIABLE СОМЕ ТЕК SUFORT ORQUP 


11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 
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writing about Supera. You сап assign 
the program name to a function key by 
pressing ESC 4. In response to the *key" 
prompt, type the letter 5. Now type the 
exact character string you wish to assign 
(Supera). From then on, pressing ESC 
S will type Supera for you. 

Need to check another file? Texpro 
and Supera enable you to view a second 
file while editing the first. If you write 
from an outline as I do, Supera can 
help. While composing a document, 1 
can review my outline by simply press- 
ing ESC 3 and typing the filename. Since 
I frequently do this, I assigned this 
process to a function key so that check- 
ing my outline is as simple as pressing 
ESC 0. Because there is no way to check 
a function key definition, I always use 
some sort of mnemonic device such as 
‘O’ for “outline.” 

A variation on viewing other files is 
to create a special file called HELP.DO 
and view this help file by pressing ESC 
6. You might use this to record the 
various special key sequences used in 
the program. In any case, you will need 
to experiment with this ability because 
the order in which the files are created 
seems to make a major difference. Some 
files appear instantly; others take so 
long that you are tempted to reset the 
machine. You do get an immediate 
message, and the manual reassures that 
“everything is OK.” 

If you are accustomed to other word 
processors, then you will appreciate the 
“type-over” ability that Texpro and 
Supera add to TEXT. Pressing ESC 1 
turns on type-over and what you type 
replaces the text in your file. ESC 2 
cancels type-over and returns you to 
“insert” mode. 

One of the best features of Texpro 
and Supera is the addition of global 
search and replace to the TEXT pro- 
gram. The F4 key is assigned this func- 
tion (one of the few times, unfortu- 
nately, that Micro Demon uses 
standard function keys). Unlike most 
search and replace programs for the 
Model 100, this one offers a prompted 
option. If you reply Ү to the “Want 
Prompting (Y/N)” question, Texpro 
and Supera will show you each occur- 
rence in context and let you decide 
whether you want to replace it. The 
prompted option makes search and 
replace extremely useful. 

For proofreading a file, you can let 
Texpro and Supera do the scrolling. 
ESC followed by the down arrow key 
scrolls the current file a line at a time. 


The timing is good for reading, but this 
function would be vastly improved if 
Micro Demon added the ability to 
adjust the speed of the scroll. In any 
case, you can pause the scrolling at any 
time by pressing the SHIFT key and 
resume scrolling with another SHIFT 
press. You really can use the LCD as a 
teleprompter and keep your speech 
notes on the small screen! 

Texpro and Supera add a variety of 
special editing keys to TEXT. Key 
combinations are provided to delete a 
word or line, to substitue for the past 
function and to change the case of the 
character below the cursor. The real 
power of these programs comes in 
combining these editing functions in 
keyboard macros or function key defi- 
nitions to automate editing. The man- 
ual provides example definitions to 
delete from the cursor to the end of the 
file, to erase every other line and to 
change the case of the previous word 
(since you forgot and left the CAPS LOCK 
on). 

All features described thus far apply 
to both Texpro and Supera while in 
TEXT or while using the EDIT com- 
mand to change BASIC programs. Tex- 
pro stops with TEXT, but Supera adds 
a great deal more to enhance the other 
ROM programs and main menu func- 
tions. 

Supera offers a whole set of CTRL key 
combinations to enter the other ROM 
programs directly from BASIC, replace 
current function keys for LIST, FILES 
and MENU, and use the additional capa- 
bilities that Supera adds to your ma- 
chine. Supera features a “calculator” 
mode, automatic line numbering in 
BASIC (at last!), and of course all the 
definable function keys already des- 
cribed. Because one set of function keys 
does not fit all ROM programs, Supera 
lets you save and restore whole sets of 
function keys. 

Calculator mode in BASIC is particu- 
larly interesting. You can quickly check 
a calculation and save the result to a 
BASIC variable. Supera also converts 
decimal to hexadecimal and vice versa. 
It even makes provision for multiple 
PEEKs and POKEs. 

Now for file management from the 
main menu. Supera adds CTRL key 
combinations to kill, rename and check 
the size and memory location of files. 


The only wrinkle is that Supera will : 


allow you to create duplicate filenames 
when renaming and even permits in- 
valid filenames. The first is a nuisance; 


the second is a real plus since it can be 
used to prevent accidental deletion of 
files. If Micro Demon would only use 
the Model 100’s own function keys for 
these menu enhancements, they would 
be much less confusing. 

But there is trouble in paradise. 
Supera comes with a starter set of 
function keys. These were not defined 
as documented. Fortunately, it was a 
simple matter to redefine them to spec- 
ification. 

I have two gripes with these pro- 
grams. First, there is no way to check 
the definition of a function key without 
using it. When a key has been defined 
to do special or complex editing, this is 
totally unacceptable. The problem is 
worse as you build multiple sets of 
function keys. You must simply main- 
tain an external list of function key 
definitions or use all your RAM for 
large “help” files. 

My other gripe is that different ROM 
modes require different methods. To 
define a function key in BASIC you press 
CTRL D rather than ESC 4 as in TEXT. 
You can activate a function in BASIC 
either by ESC followed by the letter or 
by using SHIFT plus the letter while 
CAPS LOCK is down. This second meth- 
od is the only one that works in TEL- 
COM, SCHEDL or ADDRSS. So you 
invoke a function key from TELCOM 
in one fashion, from TEXT in another, 
while BASIC allows either. Since func- 
tion definitions work across all modes, 
the use ought to be consistent. All this 
makes the function keys more difficult 
to use and less functional. 

Texpro and Supera offer plenty of 
bang for the byte. But they may not 
appeal to the casual user of the Model 
100 because of the many key sequences 
to master. If you are accustomed to 
other programs using CTRL key se- 
quences, Supera and Texpro might not 
seem difficult at all. In any case, the 
search and replace and function key 
ability are well worth the price of 
admission. 

Which do you need? If most of your 
work is with TEXT, save money and 
memory with Texpro (about $30 and 
1.5K). But if you want ROM perform- 
ance, you'll really appreciate the Supera 
supercharge. 


(Micro Demon, Inc., P.O. Box 50162, 
Columbia, SC 29250, 803-733-0908, 16K 
cassette, Supra $79.95; Texpro $49.95 plus 
$3 S/H each) 


— Dennis Kirley 
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Hardware 1200 


VoiceCommand: 
Voice Recognition — 
For a Price 


Many of us have seen those super 
intelligent computers and robots in the 
movies that talked and listened to the 
people who were (supposedly) their 
masters. After seeing this sort of thing, 
you start to wish you could do the same 
things with ordinary desktop computers 
in the real world. 

Speech synthesizers have been in 
fairly wide use for some time and in 
some fields have already become old 
hat; but speech recognition is another 
matter entirely. Getting a machine to 
identify the words a person speaks with 
any degree of accuracy is something 
that has been sought at least as far back 
as the early 1960s when Dr. Harry F. 


Olson at RCA demonstrated a crude 
version of a voice-operated typewriter. 
Lately there have been a number of 
voice recognition boards offered for 
various computers; judging by their 
limitations, HAL is still some time off 
(but may yet arrive by 2001). Mean- 
while, Logical Business System's Voice- 
Command is here now, and (although 
it is a bit awkward) it can be a very 
useful addition to a desktop computer. 

The VoiceCommand board, which 
(like so many other products) was 
designed for the IBM PC, works just as 
well in the Tandy 1200. (It takes up the 
full length of a long slot, and won't fit 
in the Tandy 1000.) It needs 256K of 
RAM, and when you are actually using 
it you may need even more than that 
since the resident program involved 
takes up over 60K. The board has its 
own microprocessor and 16K of RAM 
for its own use (it doesn't appear in the 
computer's RAM space). 

On the back plate is a microphone 
jack; a good directional mike should be 
used to keep down extraneous noises. 
The microphone that Logical sells 
works well, and costs $79.95. Installa- 
tion is no problem; please remember to 
unplug the computer first, but since it 
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does take up a slot and the Tandy 1200 
then has only one slot left, you may end 
up needing one of the multifunction 
boards for the more common expansion 
options. 

VoiceCommand comes with a good 
set of driver programs. VEXEC is the 
program that stays in RAM all the time 
and handles the task of controlling the 
board and passing commands to the 
computer. BVOICE loads a vocabulary 
into the board and into RAM, and also 
operates as a setup program to let you 
create and update vocabularies, train 
the system to recognize your voice for 
each word and check to see if everything 
is working properly. There are also a 
number of sample vocabulary files that 
let you try out the system quickly 
without having to create a vocabulary. 
A copy of Ashton-Tate's Framework 
demonstration disk is included with a 
vocabulary to match; it requires 384К, 
and the Tandy 1200 I used has only 
256K, so I wasn't able to try it. 

VoiceCommand can have a vocabu- 
lary of up to 500 words in place at a 
given time. The specs also say that a 
total of 32,000 words can be made 
available in up to 64 vocabulary files, 
but the manual isn't clear about how 
these limits were arrived at. A typical 
vocabulary will probably have only 20 
to 30 words appropriate to a given 
application. The BVOICE program has 
an editor to let you set up the command 
words and action strings involved. 

The action string is a string of char- 
acters that are to be entered, while the 
command words represent the words to 
be spoken. For example, the command 
word "directory" might stand for the 
directory command; the action string 
might be DIR. A windowing feature will 
let you specify that certain functions can 
be used only after others have been 
used. You could set the words repre- 
senting the numerals one through nine, 
for instance, so they won't work unless 
you have opened the window by saying 
"numbers" first. Finally, there's a 
"popup" function that lets you, by 
saying “popup” while running an appli- 
cation, bring up a list of the available 
words without breaking out of the main 
program. 

After you have a vocabulary file for 
the application you want to use, the 
next step is to "train" it to recognize 
your voice or that of the person who will 
be using the application. For each word 
in the file, VoiceCommand will memo- 
rize the pattern of your voice as you say 
the word. As far as I could tell, no 


connection is needed between the word 
you typed in before and the word you 
speak; if you felt like being silly you 
could, while training a file, say “ruta- 
Бара” апа have it mean “directory.” 
Since we hardly ever speak the same 
word in exactly the same way twice, 
VoiceCommand has some tolerance for 
different inflections; the manual claims 
that the board is 75 percent accurate 
after one training pass. You can run 
through the training procedure again; 
each time, as the *image" of the way you 
say each word becomes more accurate, 
so does the recognition process; after 
seven training passes the system is said 
to be 98 percent accurate. When we first 
tried out the VoiceCommand board we 
found that the system would occasion- 
ally accept commands from other peo- 
ple besides the person who had trained 
it; it wasn't reliable by any means, and 
Logical Business Systems doesn't rec- 
ommend it, but it did happen. 

Finally, starting up VoiceCommand 
to actually use an application is quite 
simple. You just enter VEXEC to load the 
main program, then type BVOICE fol- 
lowed by the name of the file and your 
initials. After the vocabulary is loaded, 


Software 1000/1200/2000 


Teleterm: 
Powerful 
Communications 


If Teleterm were just a communications 
program, it would rate as a success in 
my book. In fact, Teleterm contains a 
host of features in addition to commu- 
nications. Although full featured pro- 
grams can be so complicated to learn 
that they become a trap for the novice, 
Teleterm can be easily mastered for 
basic communications. Advanced fea- 
tures, however, are available for the 
sophisticated user. 

Entering TELETERM from DOS 
prompt yields the program's main 
menu. Selections include “Creator/ 
Editor," *Communications," “Техі 
Editor" and a “Translation Table Print" 
routine. Since communications will be 
the primary use of Teleterm, I will deal 
with that function first. Selecting the 
communications option from the main 
menu generates a "loading" message 


you're ready to start giving commands 
by voice. Load up your application 
program, press the NUM LOCK key to 
enable voice input, and start talking. If 
at some point you (or someone else) 
says something that doesn't match a 
word in the vocabulary, the computer's 
speaker will beep to let you know. If you 
want to switch off the voice input at 
some point, just press NUM LOCK or 
switch off the microphone itself, if yours 
has a switch. 

In our tests, VoiceCommand recog- 
nized words quite well as long as they 
were spoken distinctly, which is all one 
really has a right to expect at this stage. 
In a reasonably quiet office or home 
setting it should work just fine; a noisy 
environment, like a factory, will almost 
certainly cause trouble. If you have an 
application that uses a set of fixed 
commands and you'd like to convert it 
to voice input, VoiceCommand can fill 
the bill quite nicely. 


(Logical Business Systems, 264 Santa Ana 
Court, Sunnyvale, CA 94086; board $499, 
microphone $79.95) 


— Ed Ellers 


that lasts 10 seconds or so. The screen 
clears and the user is asked for a termi- 
nal name. Actually it is the name of a 
disk file containing communication 
parameters that is being requested. 

At this point the name of a terminal 
file may be entered. If the ENTER key is 
pressed instead, Teleterm will search 
available drives and list any files with a 
.TRM extension. The request for a 
filename is then repeated. The first time, 
I had no idea which file to choose, so 
I just picked one at random. Once I 
selected a file, its parameters were set 
and the communications help menu 
appeared. The A and P options of the 
help menu allow easy changing of the 
settings from the disk file. Once the 
settings are to your liking, those settings 
may be saved to disk as a new . TRM file. 
Next time, giving that filename will 
bring the communications mode up as 
you set it. For instance, I changed the 
parameters to the setup I use for Com- 
puServe and saved that file as COM 
PUS . TRM. 

The help menu has 33 commands on 
it, but actually entering terminal mode 
is not one of them. Pressing ENTER puts 
you into terminal mode, ready for 
communicating. The immediate effect 
of this is that the screen goes blank. 
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There is supposed to be a “Teleterm 
ready" message at this point, but I only 
got it some of the time. Once in terminal 
mode, Те/еіеғт sends the necessary 
signals to start communication with the 
machine on the other end of the line. 

I think this is the place to comment 
on one of my problems with Teleterm. 
My experience was that the documen- 
tation was good and covered most of the 
information that a user would need. The 
organization of that information left 
something to be desired. My biggest 
problem was figuring how to get out of 
the various segments of Teleterm. The 
documentation was very good at telling 
you how to initiate a function, but how 
to exit was often left until the end of that 
section of the manual. The people at 
Telexpress seemed to appreciate my 
comments in this regard and promised 
to consider them carefully. The manual 
for the Tandy 2000 and MS-DOS ver- 
sions had not been typeset and it is quite 
possible that some of my suggestions 
will make the final version. 

Eventually you will discover that the 
ALT key serves as a control key when in 
terminal mode. Most of the commands 
available from the help menu are avail- 
able from within terminal mode by 
pressing ALT and the key together. 
Pressing ALT H will return you to the 
help menu itself. If you are in contact 
when you press ALT H, Teleterm will 
maintain contact while you access 
commands on the help menu. Being 
able to change settings such as echo 
without breaking contact is very useful. 

Teleterm supports both unblocked 
ASCII file transfer and the X MODEM 
protocol for sending and receiving files. 
Both of these methods allow file 
transfer directly to or from disk. This 
means that the size of the file you can 
send or receive is limited only by the 
capacity of your disk and/or the length 
of time you can spend connected. 

There is also a special mode for 
transfer called Teleterm blocked mode. 
This method uses an error checking 
procedure to assure accurate file 
transfer, but can be used only when 
both computers are using Teleterm. The 
documentation does mention the fact 
that X MODEM transfer is also referred 
to ав “Ward Christensen" апа 
“MODEM7.” This bit of information 
will be helpful to beginners since I have 
found that every bulletin board uses a 
different name for the upload/down- 
load protocols. 

The first time I used Teleterm, I 
opened the memory buffer to receive the 


data coming in from a session on Com- 
puServe. When this buffer gets full, a 
message appears to that effect and a 
filename is requested to save the buffer. 
The technical people at Telexpress told 
me how to avoid this problem, but had 
I written the manual, І would have 
bragged about the receive direct to disk 
feature. If you set the receive-to-disk 
mode at the beginning of a session, all 
incoming data is saved to a disk file on 
the fly. As the buffer fills, Teleterm 
writes it to disk without operator inter- 
vention. The display leaps ahead after 
completion of disk access indicating 
that the incoming data is still being 
accepted during the disk write. 

Mention of the memory buffer brings 
up another important feature of Tele- 
term. One of the options at the main 
menu is a text editor. This editor is also 
accessible from the communications 
mode and can be used to edit whatever 
is in the buffer. For many applications 
it is a major convenience to have a text 
editor built in to your terminal pro- 
gram. Received text can be edited in the 
buffer before it is saved to disk. Outgo- 
ing files can be loaded to the buffer, 
edited and then transmitted. Messages 
and responses to received mail can be 
composed and edited in the buffer 
rather than typed on the fly. Teleterm 
will stall with the appropriate signals 
while you use the editor online. While 
the text editor has adequate editing 
commands and will provide a printed 
copy of text in the editor, it is not 
intended as a word processor and will 
not format the text. Its major drawback 
is the lack of a command to make the 
cursor jump to either end of a line. 

Teleterm can also be used to make 
your computer emulate a specific type 
of terminal. Files come on the disk that 
will emulate most of the common types 
of terminals. In addition, a feature 
called *Creator/ Editor" asks the user a 
myriad of questions about how the 
computer should act in terminal mode. 
Once these questions have been an- 
swered, the results may be saved as a 
disk file. If you know what is expected 
of a terminal, you should be able to use 
Teleterm to emulate any kind of termi- 
nal. 

Six different conversion tables within 
Teleterm can be edited by the user. 
These tables control characters going in 
and out of the RS-232 port, to the 
printer, to the video and from the 
keyboard. This feature becomes impor- 
tant if the other end sends characters 
that will make a mess. Changing the 








RS-232 input conversion table will 
intercept those characters before they 
can cause trouble. The same procedure 
can prevent graphics characters from 
reaching the video display and wreaking 
havoc. 

Teleterm can utilize the auto-dial 
feature of Hayes' and several other 
modems and will store up to 10 phone 
numbers to be recalled with a keystroke 
or two. There is also an unattended 
mode of Teleterm that will allow calls 
to be received or made at specified times 
without intervention of the operator. If 
you would like to call home and send 
files to your computer, this is a handy 
feature. 

Teleterm is available in an IBM 
version that will run on the Tandy 1000, 
1200 and many other compatibles. It 
also comes in a separate version for the 
Tandy 2000 (IBM version will not work 
on a 2000). There are also versions for 
the TRS-80 Model 4/4P, TRS-80 Mod- 
els 1/12/16 and a Xenix version. 


(Telexpress, P.O. Box 217, Willingboro, NJ 
08046, 609-877-4900, 5199.95) 


— Potter Orr 





Hardware 100/200/1000/1200/2000 


Zvert ZVT-630 
Diablo Printer 
Emulator makes 
‘LaserJetting’ Simple 


The world of computer printing was 
changed forever when Hewlett-Packard 
unveiled the LaserJet, introducing a 
new breed of computer printers. Unfor- 
tunately, though, the world of word 
processing was still using the old breed 
of software that didn't exactly work 
with this new technological wonder. 
You see, the word processing software 
that most people were using at that time 
(and even still) knew only how to “talk” 
with the old faithful daisy wheel and 
dot-matrix printers. The LaserJet pre- 
sented a whole new array of features 
and complexities. 

Into this chaos came a wonderful 
product from Zvert Corporation — the 
ZVT-630 Diablo 630 Emulator. It is a 
magical box that fits between your 
computer and your LaserJet printer and 
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makes the LaserJet think it's a “super- 
charged" Diablo 630, a popular daisy 
wheel printer. 

Suddenly, your old faithful Word- 
Star, Multimate or just about any old 
word processor you have can become 
LaserJet compatible. Your word pro- 
cessor can happily send Diablo 630 
codes for centering, underlining, setting 
margins, etc., the ZVT-630 can change 
them around, and your LaserJet will 
think your computer is talking in its 
lingo. 

In addition to translating Diablo 
codes into LaserJet talk, the ZVT-630 
performs a couple other minor miracles. 
It converts signals from your compu- 
ter's *normal" parallel printer interface 
to the RS-232 signals required by the 
LaserJet. It will also allow you to 
connect up to three computers to a 
single LaserJet printer (one parallel and 
two RS-232 serial). In this shared 
configuration, the Zvert box will auto- 
matically handle each computer's out- 
put and, if necessary, will put one 
computer's print job on hold while 
another's is being printed. 

Aside from allowing one to easily use 
the LaserJet printer, the ZVT-630 adds 
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а пісе feature (о (һе printer that пог- 
mally requires programming ог (һе 
purchase of an additional font cartridge 
(these cost about $250 each). The Zvert 
box will simulate bold printing. The 
standard Diablo code signals the emu- 
lator to take care of this automatically. 

Because of the nature of this device, 
getting it connected and configured is 
not something the average user could do 
easily. Not that it is that difficult, there's 
just a lot of talk about Baud rates, 
DTRs and parity that might scare some 
people away. In its favor, however, the 
box comes preset to work with the most 
common configuration. 

Once the box is set up, using it is as 
simple as flipping a power switch and 
pressing the “option select" button to 
put it in “emulation mode." 

The manual supplied with the emu- 
lator is printed with (what else) a La- 
serJet printer. A good amount of space 
is devoted to connecting and setting the 
DIP switches on the box. However, 
there is little information on using the 
emulator's port sharing capabilities. A 
mark in the manual's favor, though, is 
the inclusion of a complete list of 
supported Diablo 630 control codes 


with comments on how they work with 
the emulator. 

One of the nicer features put into this 
box is the *pass through" mode. It will 
force the box to send data straight 
through to the printer without transla- 
tion. This mode is handy if you happen 
to have software set up specifically for 
the LaserJet printer, but still want to use 
the emulator for its other features. 

The ZVT-630 worked flawlessly in 
our testing. If one does experience 
problems with the emulator, the self- 
test feature will print a report on its 
condition and DIP switch settings. 

WordStar was used to test the emu- 
lator and, aside from some bugs in our 
version of the WordStar Diablo 630 
driver, it worked beautifully. We 
printed the WordStar PRINT.TST file 
with the emulator. It was able to do 
boldface printing, underlining, “strike- 
out,” superscripts, subscripts and 
variable-pitch printing perfectly. How 
nice it is to finally be able to use Word- 
Star with the LaserJet. 

There are some Diablo 630 codes the 
ZVT-630 will not recognize. For the 
most part, these are due to the differ- 
ences between daisy wheel and laser 


printing. Most notable of these missing 
codes are those that control propor- 
tional printing and Diablo’s HYPLOT 
graphics. 

The ZVT-630 emulator adds some 
codes of its own to the standard Diablo 
set. These codes are for special support 
of the LaserJet printer. Codes are 
provided to switch between “portrait” 
(vertical) and “landscape” (horizontal) 
text orientation, select the number of 
copies, reset the printer and perform a 
self-test of the printer. A “transparent 
print” code is provided to allow you to 
pass through Hewlett-Packard codes 
directly to the printer. 

In summary, if you are currently 
using a word processor that does not 
support the LaserJet and have or are 
contemplating purchasing a LaserJet, 
the Zvert ZVT-630 emulator would be 
a wise buy. If you currently have a 
Diablo 630 and want to upgrade to the 
speed of the LaserJet, this product is 
made for you. 


(Zvert Corporation, 12421 Venice Воше- 
vard, Suite 8, Los Angeles, CA 90066, $599) 


— Danny Humphress 





ეუ 
ЩИ 70 ) 


= 2 


November 1985 


Need a great holiday gift idea? 
Give your friends a subscription to PCM 











The Personal Computer 
Magazine For Tandy Computer Users 


| would like to send a PCM gift certificate for a one-year (12 months) 


subscription. 
To: 


0: У _–__–__--__-____”.  ._.ჟო 


Address 
City 
From: 


_ა_–»__._–_._.-_ Oe ak Sia ЖА 


Address 
City 
Payment Enclosed 0 


Charge Visa) MasterCard O American Express O 


My Accounts 
Signature 


PCM Gift Certificate 
The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 
(502) 228-4492 





State ZIP 


State ZIP 


Card Exp. Date 











“Subscriptions to PCM are $28 a year in the United States. Canadian rate U.S. $35. Surface rate to other countries 
U.S. 564; air rate U.S. $85. Kentucky residents add 5% sales tax. All subscriptions begin with the current issue. 
Please allow 5 to 6 weeks for first copy. U.S. currency only, please. In order to hold down non-editorial costs, 


we do not bill. 


ІІ New Products 





Astro*Talk, accepts date, time 
and place of birth and gener- 
ates accurate astrological data 
for use in determining horo- 
scopes. Matrix Software, 315 
Marion Avenue, Big Rapids, 
MI 49307, (616) 796-2483. Re- 
quires Tandy 1000 or 1200, 
$39.95 


Chart-Master, translates data 
from popular spreadsheet pro- 
grams into professional charts 
and graphs. Works with most 
popular plotters and dot- 
matrix printers as well as the 
Hewlett-Packard LaserJet 
printer. Decision Resources, 
Inc., 25 Sylvan Road South, 
Westport, CT 06880, (203) 
222-1974. Requires Tandy 
1000 or 1200 with graphics, 
3375. 


Data Manager System, a per- 
sonal filing system for the 
Tandy Model 100. Package in- 
cludes manual and cassette 
software. Tandy, distributed 
through Radio Shack stores 
nationwide. Requires a 16K 
Model 100, Catalog No. 26- 
3836, $39.95. 


Debug/Assembler, a program 
allowing you to write and edit 
8085 assembly language pro- 
grams on the Model 100. 
Tandy, distributed through 
Radio Shack stores nation- 
wide. Requires a 32K Model 
100, Catalog No. 26-3823, 
$49.95. 


Diagram-Master, creates busi- 
ness diagrams such as organi- 
zation charts and Gantt Sche- 
dules. Prints charts on plotter, 
dot-matrix or laser printer. De- 
cision Resources, 25 Sylvan 
Road South, Westport, CT 
06880, (203) 222-1974. Re- 
quires Tandy 1000 or 1200 
with graphics, $345. 








The Factory: Strategies in 
Problem Solving, a computer- 
aided instructional package 
for teaching strategy. Includes 
training diskettes and teacher 
guide. Sunburst Communica- 
tions, 39 Washington Avenue, 
Pleasantville, N Y 10570, (914) 
769-5030. Requires Tandy 
1000, $59. 


Function Plotter, allows print- 
ing graphs of algebraic func- 
tions of one or two variables. 
Program supplied on cassette. 
Tandy, distributed through 
Radio Shack stores nation- 
wide. Requires a 16K Model 
100 and any опе of Tandy s 
plotters, Catalog No. 26-3834, 
$19.95. 


Hot Dog Stand: Survival 
Math Skills, a program de- 
signed to motivate students in 
grades 6-12 to develop practi- 
cal mathematical skills. In- 
cludes diskette and teacher 
guide. Sunburst Communica- 
tions, 39 Washington Avenue, 
Pleasantville, N Y 10570, (914) 
769-5030. Requires Tandy 
1000, $59. 


Inside 1-2-3, а self-study train- 
ing package for users of Lotus 
1-2-3. Includes tutorial manual 
and diskette containing prac- 
tice worksheets. Hayden, 10 
Mulholland Drive, Hasbrouck 
Heights, NJ 07604, (201) 393- 
6306. Requires Tandy 1000, 
1200, or 2000, and Lotus 1-2- 
3, $49.95 
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Inside Framework, a training 
package for users of Ashton- 
Tate's Framework. Includes 
self-paced learning manual 
and diskette with examples of 
Framework files. Hayden, 10 
Mulholland Drive, Hasbrouck 
Heights, NJ 07604, (201) 393- 
6306. Requires Tandy 1000, 
1200, or 2000, and Frame- 
work, $49.95 


Inside Symphony, a book/ soft- 
ware package for training 
users of Lotus Symphony. In- 
cludes instruction manual and 
sample data diskette. Hayden, 
10 Mulholland Drive, Has- 
brouck Heights, NJ 07604, 
(201) 393-6306. Requires 
Tandy 1000, 1200, or 2000, 
and Symphony, $49.95 


Interactive Solutions, a cross- 
referencing program consisting 
of a database manager, spread- 
sheet and word processor. 
Tandy, distributed through 
Radio Shack stores nation- 
wide. Program supplied on 
plug-in ROM. Requires a 16K 
Model 100, Catalog No. 26- 
3844, $149.95. 


The King's Rule: Mathematics 
and Discovery, a program 
using a fantasy game format 
to teach the generation and 
testing of mathematical hypo- 
theses. Includes diskettes and 
teacher guide. Sunburst Com- 
munications, 39 Washington 
Avenue, Pleasantville, N Y 
10570, (914) 769-5030. Re- 
quires Tandy 1000, $59. 








MAI BASIC Four Inventory, 
an inventory program de- 
signed to work alone or in con- 
junction with other MAJ 
BASIC Four accounting pack- 
ages. Tandy, distributed 
through Radio Shack stores 
nationwide. Requires Tandy 
2000, Catalog No. 26-5214, 
$495. 


Offix, an integrated office pro- 
ductivity program with appli- 
cations for filing, word pro- 
cessing, forms design and 
report generation. Tandy, dis- 
tributed through Radio Shack 
stores nationwide. Requires 
256K Tandy 1000, 1200 or 
2000, two floppy disk drives or 
one hard disk, Catalog No. 26- 
5325, $99.95. 


Sign-Master, a graphics pro- 
gram that creates text pages, 
headlines and other “word 
charts" on a plotter or dot- 
matrix printer. Decision Re- 
sources, Inc., 25 Sylvan Road 
South, Westport, CT 06880, 
(203) 222-1974. Requires 
Tandy 1000 or 1200 with gra- 
phics, $245. 


Thoroughbred System I, a han- 
dicapping system designed to 
help horse racing fans earn 
more at the track. PDS 
Sports, P.O. Box E, Torrance, 
CA 90507, (213) 516-66 88. Re- 
quires Tandy 1000 or 1200, 
$129. 
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BAR CODED LISTINGS | 





BAREAD 2.1 


ТР იინიიიიიიიიი1IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 


Using BA READ 2.1 


Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 
pitched beep whenever it's 
ready for you to scan a line. 
After a line has been success- 
fully read, you'll hear a lower 
beep. А “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You'll hear this when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 


the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 


Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a „ОО extension. 

The final step is to convert 
the .DO text file to a normal 
BASIC program. This is done 
quite simply by going to BASIC 
and loading the file with a 
command such as LORD^TEST 

0” (if the program name 
were TEST). The program will 
load into BASIC and will be 
ready to run. To save the 
program in BASIC's com- 
pressed format (.88 exten- 
sion), you'd type SAVE” TEST” 
(if the program were named 
TEST). You may then kill the 
.ΌΏ file with KILL “TEST.DO”. 


1100 DIM RW$(36) 
1110 ER$(1)="You must scan line 1 first! 








1120 ER$(2)-"You've SKIPPED a line!" 
1139 ER$(3)2"You've ALREADY SCANNED this 
line!" 

1140 ER$(4)="Code not PCM2/39 format!" 
1150 ER$(5)="Command not applicable here 


199g ' XXX Initialize XXX 

1010 ON ERROR GOTO 1040 

1020 CLEAR 1000 :MAXFILES-2 
1030 GOTO 1050 

1040 IF ERR-5 THEN RESUME NEXT 


1050 ON ERROR GOTO 0 t" 


1160 ER$(6)="You camnot skip this line!" 
1170 ER$(7)="Selected resume file not in 
computer!" 

1189 ' XXX Read Reserved Words List XXX 

1190 DATA BEEP, CLEAR, CLOSE, DATA, DEFDBL, D 


1060 RUNM "B30F9" 

1070 OPEN "WAND:" FOR INPUT AS #1 

198% UC$--1 

1090 PCS="9123456789ABCDEFGHIJKLMNOPQRST 
UVWXYZabcdefghijklmnopqrstuvwxyz- $+" 
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EFINT,DEFNG,DEFSTR, ELSE,GOSUB, GOTO 

1299 DATA INKEYS, INPUT, INSTR(,LCOPY, LEFT 

$(, LINE( , LOADM, LPRINT , USING , MAXFILES 

1210 DATA MID$(,NEXT, PEEK, POKE, POWER, PRE 

SET( , PRINT , READ , RESTORE, RETURN, RIGHTS ( 

1220 DATA SOUND, 5ΡΑΟΕΦ(, STRINGS ( , THEN 

1230 FOR I$-1 TO 36:READ RW$(I$):NEXT I$ 

1240 ' XXX Procedure Begins Here XXX 

125% CLS:PRINTQA44,"PCM Bar Code Program 

Reader v2.1" 

1260 LINE(28,4)-(219,18),1,B:LINE(22,6) - 
(21/,16),1,B 

1270 NN$-1 

1280 GOSUB 1669:IF ЕК%>@ THEN GOSUB 1620 
:GOTO 1289 

1290 IF LL%=@ AND INSTR("YN",IL$)29 THEN 
ER%=5:GOSUB 1620:GOTO 1289 

1300 IF 11%=@ THEN ОМ INSTR("ALSR",IL$) 

GOTO 1820,1890,1980,2050 

1310 IF LL$-1295 THEN 1350 

1320 IF LL8<>NN% AND NN$-1 THEN ER$-1:GO 
SUB 1629:GOTO 1280 

1330 IF LL&<NN% THEN ER%=3:GOSUB 1620:GO 
TO 1289 

1340 IF LL$2NN$ AND NN%>1 THEN ER$-2:GOS$ 

UB 1629:GOTO 1280 

1350 IL$=RIGHT$(IL$,19) 

1360 IF LL$-1 AND MM%>0 THEN GOSUB 1780 

1370 CLS$=CL$+IL$ 

1380 FOR I$-1 TO LEN(CL$) 

1390 CH$=MID$ (CL$, I%,1) 

1400 IF СН5-"%" THEN GOSUB 1519:IF NL 

% THEN 1470 ELSE GOTO 1440 

1410 IF CH$-"/" THEN GOSUB 155@:ТЕ NL 

& THEN 1470 ELSE GOTO 1440 

1420 IF CH$="." THEN UC%=NOT(UC%) :GOT 

0 1450 

1430 IF CH$-»"A" AND CH$<="Z" AND NOT 
(UC%) THEN CH$-CHR$(ASC(CH$)432) 

1449 XX$-XX$-CH$:IF RIGHT$(XX$,1)-CHR 

$(13) THEN PRINT#2 ,XX$; :XX$="":UC%=-1 

1450 NEXT 1% 

1460 CL$="" 

1470 РЕІМТ(8200,5РАСЕ5(80); 

1480 IF LL%<>1295 THEN NN%=LL%+1:GOTO 12 

89 

1490 ' XXX Done XXX 

1500 CLOSE:CALL 61897!:CLEAR 500,НІМЕМ:М 
ENU 

1510 ' XXX Decode Reserved Word XXX 
1520 МІ%-0:ІҒ I%>LEN(CLS$)-1 THEN NL$--1: 
CL$-"$":GOTO 1540 

1539 I$-I$-1:CH$-RW$(INSTR(PCS$,MIDS$(CL$, 
1%,1))) 

1549 RETURN 

1550 ' *** Decode Hex and Control Charac 
ters XXX 

1560 NL$-Q:IF I%>LEN(CL$)-1 THEN NL$--1: 


CL$2"/":GOTO 1610 

1570 I$-I$-1:IF INSTR("/%.",MID$(CL$,1%, 
1))>@ THEN CH$-MID$(CL$,1$,1):GOTO 1619 
1580 IF I%>LEN(CL$)-1 THEN NL$--1:CL$-RI 
GHT$(CL$,2):GOTO 1610 

1590 HX$-MIDS(CL$,1$,2):CH$-CHRS ((INSTR( 
"9123456789ABCDEF" , LEFT$ (HX$,1)) -1) *164I 
NSTR("0123456789ABCDEF" , RIGHTS (HX$,1)) -1 
) 

1600 I%=1%+1 

1610 RETURN 

1620 ' XXX Error Codes XXX 

1639 SOUND 5999,19:SOUND 8999,19:SOUND 5 
000,10 

1640 PRINT@220-.5*LEN(ER$(ER%)),ERS(ER%) 


1650 RETURN 

1669 ' XXX Get Code Line XXX 

1670 PRINT@173,"";:PRINT USING "Scan lin 
e ###"; NN% 


1689 IF NN$--1 THEN PRINT@173,"Scan any 
line":GOTO 1700 

169% SOUND 500,5 

1700 INPUT&1,IL$:ER$- 

1710 FOR 1%=1 TO LEN(ILS) 

1720 IF МІр9(11,6,1%,1)-"!" THEN MID$(IL$ 
j I$ қ 1)=" QU 

1730 NEXT I$ 

1740 IF LEN(IL$)<>1 AND LEN(IL$)<>21 THE 
М ER$-4:RETURN 

1750 IF LEN(IL$)=1 THEN LL$&-0:RETURN 
1760 LLS-LEFT$(IL$,2):LL$-(INSTR("012345 
6789ABCDEFGHIJKLMNOPQRSTUVWXYZ" , LEFT$ (LL 
$,1))-1)*36«-INSTR("9123456789ABCDEFGHIJK 
LMNOPQRSTUVWXYZ" , RIGHTS (LL$ ,1))-1 

177% RETURN 

1780 ' *** Open Program File *** 

1790 PNS$=LEFTS$ (ILS , 6) : ILS=RIGHTS (ILS , LEN 
(119) -6) 

1800 OPEN PN$ FOR OUTPUT AS #2 

1810 RETURN 

1820 ' XXX Abort XXX 
1830 ВЕЕР:ВЕЕР:ВЕЕР 
1840 PRINTQ299,"ABORT! 
1850 ІМРОТЯ1,АМ5 

1860 IF INSTR("YN",AN$)=@ THEN BEEP: PRIN 

T@251,"Scan 'YES' or 'NO'":GOTO 1850 
1870 PRINT@2ØØ , ЅРАСЕЅ (89); 

1880 IF AN$-"Y" THEN CLOSE:KILL Р№9+".ро 
":GOTO 1490 ELSE GOTO 1280 

1890 ' XXX Skip Line XXX 

1900 IF NN$-1 THEN ER%=6:GOSUB 1620:GOTO 
1280 

1919 ВЕЕР:ВЕЕР:ВЕЕР 
1920 PRINTQ210,"SKIP! 
1930 INPUT#1,ANS 
1949 IF INSTR("YN",AN$)-0 THEN BEEP: PRIN 

T@251,"Scan 'YES' or 'NO'":GOTO 1930 


Are you sure?"; 


Are you sure?" 
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1950 РВІМТ8200,5РАСЕ9(80); 
1960 IF ANS="Y" THEN NN%=NN%+1 
1970 СОТО 1280 

1980 ' XXX Stop 6 Save XXX 
1990 BEEP:BEEP:BEEP 


2000 PRINT@207,"STOP & SAVE! Are you sur 


e?"; 


2010 INPUT&1,AN$ 
2020 IF INSTR("YN",AN$)-U THEN BEEP: PRIN 
T@251,"Scan 'YES' or 'NO'":GOTO 2010 
2030 PRINT@29@, SPACES (89) ; 

2049 IF AN$-"Y" THEN 1490 ELSE GOTO 1289 
2050 ' XXX Resume XXX 
2060 IF ММ%<>1 THEN ER$=5:GOSUB 1629:GOT 


ТАСВ (FROM PAGE 14) 
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0 1280 

2070 PRINT@254,"Resume Mode"; 

2080 NN%=1:GOSUB 1660 

2090 IF 11%=@ THEN ЕВ%-5 ELSE IF 11%<>1 
THEN ER%=1 

2100 IF ER%>Ø THEN GOSUB 1629:GOTO 2060 
2110 РМ5-МІр5(11,5,3,6) 

2120 ОМ ERROR СОТО 2140 

2139 OPEN PN$ FOR INPUT AS #2:GOTO 2170 
2140 RESUME 2150 

2150 CLOSE #2 

2160 ER&-7:GOSUB 1629:GOTO 1270 

2170 CLOSE #2:0РЕМ PN$ FOR APPEND AS #2 
2180 NN$--1:GOTO 1280 
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ІШТІ ΙΙΙ ШШ 


ñbort Skip Line Stop & Save 


ΙΙΙ ШШ ШШ 


Resume Yes No 
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$269 


Now you can access LUCID, DISK +, 
WRITE ROM, RAM+ and others 
instantly. 


The 6 ROM BANK plus battery pack lets 
you have the ultimate Model 100 system. 
When you get your unit just press in up 
to 6 ROMS into the sockets then push in 
a simple plug into your Model 100's ROM 
socket. The ROM bank has two posts on 
either end that insert into the two little 
holes on the underside of your Model 100. 


The ROM bank props up the Model 100 at 
the same angle and height as those 
little legs you've seen. The ROM BANK 
itself is only about 17" deep and it runs 
the width of your Model 100. It only weighs 
one pound. It not only installs instantly, 
but it pops free in a second if you need 
everything to lie flat in a briefcase. 





A joint PCSG/CRYPTRONICS project. 


PORTABLE СОМА ЛЕК κ ΠΕ ОВОР 


11035 Наггу Ніпеѕ Blvd. Мо. 207, Dallas, Tx. 75229 


plus powerful Nicad 
B JAN 30 hours of power 
to your Model 100 


Change from ROM to ROM with the 
touch of a thumb switch. 


You can go from LUCID to WRITE to 
DISK + to any other ROMS just by turn- 
ing the thumb switch at the side of the 
ROM bank. The 6 ROM BANK is a sturdy 
well built construction that looks like it is 
a part of your Model 100. 


What is also fantastic is that the ROM 
bank has a powerful NICAD battery and 
recharger built right in. This power source 
supplies up to 30 hours of life to your 
Model 100 with just 6 hours of recharge. 
What's nice is that it recharges right from 
your Model 100's power adapter. This is 
a quick charge system and if you need 
power in a hurry, you can get 6 hours of 
life for your Model 100 by just charging for 
an hour and half. 





VISA / MASTER CARD / AM. EXP. / C.O.D. 


battery pack that gives 


Suddenly, the Model 100 is a very 
powerful computer. 


If you have the HOLMES portable disk 
drive with its powerful bundled database 
software package or the CRYPTRONICS 
128K RAM expansion along with LUCID, 
WRITE ROM and DISK + іп the 6 ROM 
bank with its rapid rechargable NICAD 
power source, you have the ultimate port- 
able system. It's all available only from 
PCSG. 


As usual we don't want you to take our 
word for it. The 6 ROM BANK is sold on 
a 30 day trial. If you are not satisfied 
simply return within thirty days for a full 
refund. MC, VISA, AM. EX. or C.O.D. 


1-214-351-0564 
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- All on one ROM. Truly the finest four programs 
available for the Model 100 — guaranteed. ' 
Try it for 30 days. if you aren't blown away by the * 
Hi _ excellence return it for a full refund | 


CAN REALLY HAVE IT 


The four best programs for the Model 
100 all on one ROM. 32K of power with- 
out using any RAM for program stor- 

age. This is the PCSG Snap-In ROM 


that just presses easily ‘into the little 
ROM socket in the compartment on the 
back. You access the four right fromthe 
main menu like built-ins. 

Write ROM — the: definitive word 
processor for the Model 100. Function 
key formatting or dot commands. 
Search and replace. Library feature — 
inserts words, phrases or whole docu- 


ments into text from just a code. МАР” 


lets you see a picture of your document. 
In all there are 60 features. and. func: 


tions. No one can claim faster. operation. 
FORM lets you create interactive forms 


with: on-screen prompts that you can 


| answer from the keyboard. Nothing else ; 


for the Model 100 compares with the 
features of Write ROM. Exactly the 
same as the Write ROM sold as a single 
program. Infoworld says it “makes the 
Model-100 a viable writing unit : 


sa SUr 


unn our highest expectations for 


quality and clarity.” 


Lucid Spreadsheet: This is the one | 


PICO ‘magazine says “blows Multiplan 
right out of the socket” and Infoworld 


performance rated ав “excellent” and 
‘said “makes the Model 100 compute?” 
Gives you features you cannot get with 


Lotus 123. Lets you build spreadsheets 


. in your Model 100 that would consume ` 
140-150K ona desktop. Program; gener 


ating capability with no programming 
knowledge required. Variable column 
widths. Includes find and sort with func- 


tion. key control, It's fast, recalculates 
like lightning. No feature has been taken 


from the original, only new ones added. 
Database: This is a relational data 


base like no other. You сап do every- 
‘thing from mailing lists to invoices. No 
“complicated pseudo-coding; you create 


input scréens as simply as typing. into 


TEXT. You are not limited by size; you. 


can have as large an input screen as you 


wish. Prints out reports or forms, get- 
ting information from as a files 38. 


1214] 351-0564 


you like. jum math өн fields, 1 
Total interface with Lucid worksheets. |. 

Outliner: Does everything that Think- | ` 
tank does опа PC but a whole lot better. | 


Includes а Sort for your headlines. Lets | 


you have headlines of up to 240 charac- |. 


ters. Has cloning, hoisting and sideways 
scroll.up to 250 characters. Like Lucid, 
this one sets a new standard for outlin- 
ers. “This is the way to plan and organize | 
your projects. 


Present Lucid and Write ROM Ë 


owners сай upgrade for $100. If you 
have both it's $75. ч 
- Ав usual PCSG sells the ა". ROM 


on à thirty. day guarantee. If for any | 


reason you are not satisfied, өні S 


- return it for a full refund. 


We are excited about this Бес | 
Super: ROM gives the Model 100 the ` 


true power of a desktop. No other multi- 


program ROM has software that com- 
pates. But don’t take our word for it, We 
invite you to make that comparison. 


noe Priced. at ҮН 95 оп Vide In. 
. ROM. 


- Got stuck with ETIT else’ muli-ROM? | 


EET, it for $100. 4 9 


PORTABLE COMPUTER SUPPORT GROUP | 


И Нагту Hines Blvd., #206, Dallas, TX 75229 
Ne Visa, American Express, Check, or 0.0.8. | 





